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Aktuell 


An alle Leser 
Consumer Electronics Show 
in Chicago 


Test 


Drucker MPS 801 
Sprachausgabe mit dem SDP 


Hardware 


Keine Probleme mit der Floppy 
Selbsthilfe: VC 1541-Tricks 
Vergleichstest: EPROM-Brenner 
Programm auf Knopfdruck 

Der C 64 im neuen Kleid 

Reset am C 64 

Große Übersicht: 

Modems Akustikkoppler 


Software 


Tuning durch andere Sprachen 
ist Basic out? 

Was ist Comal? 

Pascal — leistungsfähiger 
und eleganter als Basic (2) 
So nutzt man den Videochip 
des VC 20 voll aus 
Datenkreislauf — Die se- 
auentielle Datenspeicherung 
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Programme zum Abtippen 


Anwendungen 

Kopplung über den User-Port 
(C 64) 

Drucker/Floppy ein- oder 
ausgeschaltet 

Analoger Meßwert rein — ana- 
loger Stellwert raus (C 64) 


Grafik 

Kudiplo erfüllt Schülerträume 
(VC 20) 

Hardcopy für Görlitz-Interface 


Spiele 

Escape (VC 20) 

Pac-Boy — Die Herausforde- 
rung (C 64) 


Tips & Tricks 

Von den Kleinen auf die 
Großen (C 64) 
User-Port-Display (C 64) 
Autostart (VC 20) 

View BAM (C 64) 

PRINT AT und RESTORE N 
(VC 20) 
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\ = Auf der CES in Chicago gab 
es jede Menge neuer Produkte 

\ zu bewundern. Was wird 

uns in der Zu- 

kunft erwarten? 
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Modems und Akustikkoppler 
sind ein heißes Thema. 
Wer bietet was für seinen 
Preis? Wir stellen ver- 
schiedene Modems 

und Akustikkoppler vor. 


Die Geheimnisse der Floppy lüften. Wir geben Reparaturhinweise. 4 
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A Resettaster und -Schalter in allen Formen und Variationen. Doch wie geht’s danach weiter? 





A Mit Paint Magic lassen 
sich nahezu 
problemlos Bilder 
auf dem C 64 
erstellen. 
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Die große Software-Vielfalt 
der CBMs für den C 64 
Tips & Tricks 


Software-Test 


Elektronische Aquarelle — 
Paint Magic 

Softwaretest: ISM 64 
leistungsfähige Datenbanken 
schnell erstellt 


Spiele-Test 


One on One (C 64) 
Gruds in Space (C 64) 
Olympic Games (C 64) 


Kurse 


Reise durch die Wunderwelt 
der Grafik (5) 

Alle Tasten-, Zeichen- und 
Steuercodes (4) 


So machen’s andere 
Der © 64 im Kuhstall 


Anwendung des Monats 


Abgerechnet wird mit dem 
C 64 


Listing des Monats 


Das außergewöhnliche 
Abenteuerspiel — Burg des 
Grauens (C 64) 

Lebenslauf — Bilder 

Listing 


Wettbewerbe 


Anwendung des Monats: 

Es winken 500 Mark 
Superchance: 2000 Mark zu 
gewinnen 
Programmierwettbewerb: 
Der beste Einzeiler 


Rubriken 


Editorial 
Leserforum 
Bücher 
Fehlerteufelchen 
Vorschau 
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Piraten, Piraten 


Softwarepiraten nannte man 
bislang Leute, die fremde Pro- 
gramme ohne Genehmigung ko- 
pieren und weiterverkaufen. 
Die Inhaber einer Scheinfirma 
namens R+S (Adresse: Ein Post- 
fach in Berlin) haben eine neue 
Art von Softwarepiraterie erfun- 
den: Sie verschickten serienwei- 
se Abmahnbriefe an Inserenten, 
die in Kleinanzeigen Software 
zum Kauf oder Tausch anboten; 
behaupteten, daß es sich dabei 
um Raubkopien handle und ver- 
langten Unterzeichnung einer 
Unterlassungserklärung sowie 
Begleichungeiner Rechnungfür 
die ihre angeblichen Kosten von 
300 Mark — in bar an die Post- 
fachadresse zu schicken. Sie 
hofften, ein Geschäft mit der Un- 
wissenheitoderdemschlechten 
Gewissen der Adressaten zu 
machen. Keine Sorge: Um diese 
»Firma« kümmert sich schon der 
Staatsanwalt. 

Die Reaktion auf diese Briefe 
zeigten aber häufig, wie unsi- 
cher die Empfänger waren, was 
sie eigentlich dürfen und nicht 
dürfen. Dabei ist das Grundprin- 
zip seit langem klar: Ein Pro- 
gramm, das ein anderer ge- 
schrieben hat, darf man nur mit 
— zweckmäßigerweise schriftli- 
cher — Genehmigung des Au- 
tors kopieren und Programme, 
die von vornherein zum Kopie- 
ren bestimmt sind, gibt es zwar 
— sie sind aber nicht gerade 
häufig. Auch solche Programme 
dürfen in der Regel nicht kom- 
merziell weiterverwertet (in der 
Praxis heißt das zumeist: nicht 
weiterverkauft) werden. Sie dür- 
fen auch nicht das 64er oder ei- 
ne andere Zeitschrift oder ein 
Buchaufden Fotokopiererlegen 
und die Kopien regelmäßig im 
Benutzerclub verteilen oder ei- 
nen Datenträger mit den abge- 
tippten Programmen weiterver- 
kaufen. So einfach ist das. 


Michael Pauly, Chefredakteur 
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Redaktion, ein 


er Commodore 64 hat im 

Verbund mit seinem Vor- 
gänger dem VC 20 mittler- 
weile einen Marktanteil von 
über 50 Prozent bei den 
Heimcomputern erreicht. 
Diese Entwicklung war An- 
fang dieses Jahres in der 
Tendenz bereits abzusehen. 
Die entsprechende Reaktion 
auf diese Entwicklung war 
die Absicht, eine eigene 
Zeitschrift für diese beiden 
Computer zu machen. Nach 
dreimonatigen konzeptionel- 
len Arbeiten mit nur zwei ak- 
tiven Redakteuren war die 
64'er, Ausgabe 4/84 fertig. 

Unser Team wurde wäh- 
rend dieser Zeitumzwei wei- 
tere, versierte Fachleute ver- 
stärkt. Der momentan statt- 
findende Ärbeitskampf der 
Druck- und Metallindustrie 
um die 35-Stunden-Woche 
läßt uns nur müde lächeln. 
Wir kämpfen um die 70-Stun- 
den-Woche. Unser momenta- 
nes Arbeitspensum beträgt 
75 bis 80 Stunden pro Woche. 
Sie werden sich fragen, war- 
um dieser Arbeitsaufwand? 
Einige Zahlen sollen dies 
veranschaulichen. Wir be- 
kommen pro Woche etwa 100 

Programmeinsendungen 
und ungefähr die Hälfte an 
Briefzuschriften pro Tag. Da- 
beisind die persönlichen Be- 
suche von Lesern und Pro- 
grammentwicklern in der 
Redaktion nicht mitgerech- 
net. Die Bearbeitung der 
Programme, die Beantwor- 
tung der Briefe und der per- 
sönlichen Probleme per Te- 
lefon nimmt entsprechend 
Zeitin Anspruch. Auch unse- 
re beiden Schwesterzeit- 
schriften Computer persön- 
lich und Happy-Computer 





An alle Leser 





Lieber Leser, Sie halten nunmehr mit der 


wollen von uns mit Commo- 
dore-Programmen und -Arti- 
keln versorgt werden. »Es 
gibt vielzu tun, ...«. 

Warum nun dieser Briefan 
die Leser? Wir wollen uns 
nicht beschweren über die 
unheimliche Resonanz, die 
unserer S4'er-Magazin her- 
vorgerufen hat. Im Gegen- 
teil, wir sind stolz darauf, 
zeigtesunsdoch, daß wir auf 
dem richtigen Weg sind. 
Dennoch sollen im folgen- 
den einige Punkte aufge- 
führt werden, die derRedak- 
tion die Arbeit und dem Le- 
ser die Mitarbeit an unserer 
Zeitschrift erleichtern sollen. 


Neun kleine 
Negerlein... 


1. Die Mitmach-Karten im 
64’er haben sich als das er- 
wiesen was sie sein sollten: 
ein Forum für die Leser, sich 
ihre Probleme von der Seele 
zu schreiben. Für uns sind 
sie ein wertvoller Hinweis 
dafür, wo Sie der Schuh 
drückt. Die ausgefüllte Ru- 
brik»Ich wünsche mir für die 
nächsten Hefte folgende 
Themen:« ist ein wichtiger 
Beitrag, was wir in den zu- 
künftigen Ausgaben unbe- 
dingt berücksichtigen müs- 
sen. So wirdzum Beispieldas 
am meisten gewünschte The- 
ma, ein Maschinensprach- 
Kursus, ab der nächsten Aus- 
gabe in Angriff genommen. 
Ein Musikkurs wird eben- 
falls bald folgen. 

Mit dem Teil »Ich stehe vor 
folgendem Problem:« kön- 
nen Sie Fragen an die Re- 
daktion stellen. Es ist uns da- 
bei aber nicht möglich, alle 





Ausgabe 8/84 das fünfte 64’er — Magazin für 
Computer-Fans — in Händen. Dies soll uns, der 
laß sein, um eine erste Bilanz zu ziehen. 


Fragen zu beantworten. Zum 
einen handelt es sich oft um 
sehr ausgefallene Themen, 
wie zum Beispiel der Än- 
schluß eines »Exoten- 
Druckers« an den C 64. Zum 
anderen werden aber auch 
viele Fragen durch Artikel 
oder Programme, die wir be- 
reits veröffentlicht haben 
oder noch werden in der ei- 
nen oder anderen Form ge- 
klärt. 

»In dieser Ausgabe war 
besonders gut« und »Des- 
halb meine Meinung ..« wer- 
den zur Änalyse der erschie- 
nen Ausgaben verwendet. 
Diese Analyse liefert wert- 
volle Hinweise, was gefallen 
hat oder nicht, oder wo noch 
Verbesserungen anzubrin- 
gen sind. 

2. Wir haben mittlerweile 
vielfältige Möglichkeiten Ihr 
Listing zu verwerten. Zum ei- 
nen natürlich die Veröffentli- 
chung in unserer Zeitschrift. 
Bei sehr guten Programmen 
kann die Markt & Technik 
Verlag Aktiengesellschaft 
das Produkt sogar in den 
Vertrieb von Happy Software 
aufnehmen. Ferner besteht 
die Möglichkeit, daß Ihr Li- 
sting als Teil eines Buches 
veröffentlicht werden kann. 


3. Uns erreichen auch im- 
mer wieder Anfragen, ob 
und in welcher Form abge- 
druckte Programme auf ei- 
nem Datenträger zu erste- 
hen sind. Wir haben bereits 
in der Ausgabe 7/84 (zu- 
nächst für die Ausgaben 4 
und 5) begonnen alle im 
64’er abgedruckten Pro- 
gramme auf Kassette anzu- 
bieten. Der Verkauf auf Dis- 
kette wird, zum Selbstkosten- 
preis versteht sich, dem- 
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nächst anlaufen. Dieser re- 
gelmäßige Leserservice soll 
das Eintippen der Program- 
me mit den damit verbunden 
Fehlerquellen für Interes- 
sierte erleichtern. 

4. Eine Unmenge an Zu- 
schriften erreicht uns zu an- 
geblich nicht lauffähigen 
Programmen. Alle Listings, 
die im 64'er abgedruckt wor- 
densind, wurden vonunsge- 
prüft und für gut befunden. 
Dennoch kann es von Fall zu 
Fall vorkommen, daß sich 
Übertragungsfehler ein- 
schleichen. Bestes Beispiel 
ist der nicht gedruckte 
»Linkspfeil« im Listing von 
Quicktext. Sollten Sie in der 
Rubrik »Fehlerteufelchen« 
keine Korrektur zu einem 
Programm finden, so ist das 
Listing 100 prozentig lauffä- 
hig. Wie die Erfahrung ge- 
zeigt hat, lassen sich fast alle 
Probleme auf Tippfehler 
oder Nichtbeachtung der 
Anleitung reduzieren. Wir 
drucken nur ausgesuchte 
Programme ab. Diese ent- 
halten dann fast immer eine 
sehr große Anzahl von DATA- 
Zeilen. Gerade hier ist natür- 
lich die Wahrscheinlichkeit 
eines falsch eingegebenen 
Datums sehr hoch. Auch 
nach einer drei- fünf- oder 
zehnmaligen Überprüfung 
überliest man seine eigenen 
Fehler immer wieder. Bitte 
schreiben oder rufen Sie nur 
an, wenn Sie absolut sicher 
sind, daß in dem Programm 
Fehler sind. 

Estauchen aber oft bereits 
Schwierigkeiten beim Eintip- 
pen der Programme auf. So 
stehen manche Anfänger 
ratlos vor Zeilen mit mehrals 
80 Zeichen oder können dies 
und jenes Steuerzeichen 
nicht eingeben. Wir können 
dem Leser leider nicht das 
intensive Studium des Hand- 
buchs (zum Beispiel Anhang 
D) abnehmen. Des weiteren 
sollte natürlich auch die An- 
leitung zu dem Programm 
aufmerksam gelesen wer- 
den. Ein Listing einzutippen 
das nur unter Simons Basic 
läuf, ohne aber diese 
Spracherweiterung zu besit- 
zen kann nicht zum Erfolg 
führen. 

Beachten Sie in dieser Hin- 


sicht auch unsere Tips zur 
Fehlersuche in Programmen 
(64’er, 7/84, Seite 66). 

Speziell an die Einsender 
von Programmen mit einem 
überwiegenden Anteil an 
Datazeilen. Bitte bauen Sie in 
Ihr Programm unbedingt 

Checksummen-Prüfungen 
ein. Diese sollten sich nicht 
nur auf eine Gesamt-Check- 
summe beschränken, son- 
dern den möglichen Fehler 
lokal eingrenzen helfen. 

5. Manche Leser finden 
die Beiträge im 64er als zu 
speziell, zu fachorientiert 
und nur dem Profi zugäng- 
lich, defacto für den Laien 
nicht verwertbar. Die Profis 
betrachten wiederum ande- 
re Artikel als zu wenig in die 
Tiefe gehend und informativ 
für ihre Zwecke. Dieser Pro- 
blematik bei der Auswahl 
der Themen sind wir uns 
durchaus bewußt. Wir wol- 
len aber ein Magazin sein, 
das sowohl dem Anfänger 
als auch dem Fortgeschritte- 
nem einiges bietet. Dadurch 
ergibt sich eine Art Zweitei- 
lung unserer Beiträge. So- 
wohl der Einsteiger in die 
Computerei (mit dem C 64 
und VC 20) alsauch der Kön- 
ner sollen durch das 64er 
Hilfestellung erfahren. Ge- 
rade bei unseren Kursen 
zeigt sich dies besonders 
deutlich. Hier ist wirklich für 
jeden etwas dabei. 

6. Einige Leser beschwe- 
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ren sich auch, daß in einem 
Magazin mit dem Namen 
64'er — zumindest zuviele — 
VC 20-Programme abge- 
druckt werden, andere sind 
gerade der gegenteiligen 
Auffassung. Der VC 20istder 
kleine Bruder vom C 64 und 
wird, solange er in großen 
Stückzahlen auf dem Markt 
ist, auch von uns mit Beiträ- 
gen bedacht. Der Titel unse- 
rer Zeitschrift bedeutet also 
nicht, daß wir uns aus- 
schließlich mit dem Commo- 
dore 64 befassen. Dadurch 
lassen sich auch die zukünfti- 
gen Heimcomputer von 
Commodore einbinden. 

7. Gefordert wird auch oft 
die Umschreibung der Pro- 
gramme für den VC 20 oder 
denC 64. Dieshaben wir bis- 
her wegen des erheblichen 
Platzbedarfs für ein und das- 
selbe Listing vermieden. Le- 
ser, die Programme selbst 
umschreiben möchten, sei- 
en auf den Artikel in der 
64’er, Ausgabe 7, Seite 52 
verwiesen. 

8. Viele haben gefragt, 
warum wir bei den Software- 
Tests keine festen Bewertun- 
gen mit Nummern oder 
Buchstaben einführen. Dazu 
folgendes; jedes Produkt, 
das von uns getestet wird, ist 
esauch wert. Nur gute Hard- 
oder Software wird von uns 
besprochen und erhält ent- 
sprechenden Raum im $4’er. 
Der Markt wird monentan 
von Produkten überflutet, 
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und wir wollen nur das Beste 
vorstellen. Vergleichende 
Bewertungen mit abschlie- 
ßendenen Zahlen sollen der 
Objektivität dienen, sind al- 
lerdings zu oft das Ergebnis 
einer subjektiven Beurtei- 
lung. Deshalb verzichten wir 
darauf, liefern Fakten und 
persönliche Meinungen, 
überlassen es aber anson- 
sten dem mündigen Leser 
sich ein Urteil zu bilden, wel- 
ches Produkt nun für seinen 
speziellen Anwendungsfall 
am besten geeignet ist. 

9. Für alle Leser die erst 
jetzt auf das 64’er gestoßen 
sind, gibt es eine traurige 
Nachricht: alle Ausgaben 4 
und 5 sind vergriffen. Nach- 
bestellungen haben also kei- 
nen Zweck mehr. Artikel 
oder Programme die Sie in- 
teressieren müssen Sie sich 
also bei Freunden oder Be- 
kannten besorgen, die diese 
»Raritäten-64’er« besitzen. Es 
ist uns leider nicht möglich 
einzelne Beiträge als Kopie 
zu verschicken. 

Diese Ausführungen sol- 
len Sie nicht abschrecken, 
weiterhin Programme, Arti- 
kel, Fragen und Meinungen 
an uns zu senden. Wir legen 
sehr großen Wert auf einen 
positiven und konstruktiven 
Dialog mit unseren Lesern. 
Um Verständnis wäre noch 
zu bitten, bei den doch recht 
langen Bearbeitungszeiten. 
Wir arbeiten daran — 12 
Stunden am Tag, die ganze 
Woche durch. (aa) 
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Eee soll vorausge- 
schickt werden, daß sich 
die folgenden Produktvor- 
stellungen, mit Zeit-, Händ- 
ler-und Preisangaben haupt- 
sächlich auf den amerikani- 
schen Markt beziehen. Dort 
werden die meisten Pro- 
gramme und angekündigten 
Hardwareerweiterungen 

gegen Ende des Sommers 
oder gar erst im Herbst lie- 
ferbar sein. Welchen Wert 
hat diesnun für den europäi- 
schen und speziell für den 
deutschen Anwender? Nun 
er ist zunächst darüber infor- 
miert, welche neuen Produk- 
te demnächst auf den deut- 
schen Markt kommen wer- 
den, und kann daraus Hilfen 
für seine Kaufentscheidung 


net sein), zeigen keine ther- 
mische Überlastung und las- 
sen sich sowohl über den se- 
riellen alsauch über den pa- 
rallelen Bus (User-Port, 
IEEE-kompatibel; also auch 
für die größeren System ge- 
eignet) betreiben. Der Preis: 
399 beziehungsweise 695 
Dollar. 

Ein Einzel-Laufwerk, daß 
bis zu zehnmal schneller ist, 
bietet Concorde mit dem 
C-321P (Bild 2) für 389 Dollar. 
Dieses Laufwerk ist aller- 
dingsnurüber den User-Port 
zu betreiben. Beachtenswert 
ist ein Jahr Vollgarantie. 

Speziell für den seriellen 
Bus wurde das Einzel- 
Laufwerk Commander II von 
Telesys entwickelt. Die Zei- 





Bild 1. Die Alternativ-Laufwerke von MSD, 
Super Disk Drive I und Il. 


beziehen. Leute mit Bezie- 
hungen besorgen sich diese 
Produkte aber auch gleich 
direkt aus den USA. Genug 
der Vorrede, was gab es 
Neues? 

Da wären zunächst Floppy- 
Laufwerke als Alternative 
zum VC 1541, ein Thema das 
sicherlich vielen förmlich un- 
terdenFingernägeln brennt. 
Von MSD Systems gibt es die 
beiden Einzel- und Doppel- 
Laufwerke MSD Super Disk 
Drive I und II (Bild 1). Forma- 
tieren, Kopieren und Verifi- 
zieren benötigen wenigerals 
zwei Minuten, das ist also 20 
mal schneller als auf der VC 
1541. Die beiden Laufwerke 
haben vier beziehungsweise 
sechs KByte Pufferspeicher 
(das bedeutet, mehr Files 
können zur selben Zeit geöff- 
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ten liegen in derselben Grö- 
ßenordnung wie bei der VC 
154]. Dieses Laufwerk soll 
sich aber besonders durch 
die hohe Zuverlässigkeit 
vom Orginal-Laufwerk un- 
terscheiden, und hat eben- 
falls ein Jahr Garantie. 369 
Dollar kostet der Comman- 
der Il. 


Superfarben 


Einen neuen Commodore- 
kompatiblen Farbärucker 
hat Okidata mit dem Okima- 
te 10 (Bild 3) vorgestellt. Die- 
ser Thermo-Matrixärucker 
bringt im Einfarben-Modus 
biszu 136 Zeichen in eine Zei- 
le mit einer Druckgeschwin- 
digkeit von bis zu 60 Zeichen 
in der Sekunde. Einen Bei- 
spielausdruck der brillian- 
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Bild 2. Das Laufwerk C-321P von 
Concorde für 389 Dollar ist bis zu zehnmal 
schneller als die Floppy VC 1541. 


ten Wiedergabe mit allen 
auf dem C 64 möglichen Far- 
ben zeigt Bild 4 

Auch Epson bringt mit dem 
160 CPS ( characters per 
second) schnellen JX-80 
Drucker Farbe in den Aus- 
druck. Der JX-80 wird mit 
der obligaten Centronics- 
Schnittstelle rund 1500 Dol- 
lar kosten. 

Für die Ungeduldigen bie- 
tet Telesys einen 99 Dollar 
teueren Drucker-Puffer Tur- 


boprint/GT (zu erkennen im 
Bild ]) mit wahlweise 16 (99 
Dollar) oder 32 (129 Dollar) 
KByte Speicher für die Ver- 
bindung von Commodore 64 
mit Centronics-Druckern an. 
Damit lassen sich auch alle 
Grafikzeichen des C 64 
übertragen. | 

Speziell für die Erstellung 
von hochauflösenden Grafi- 
ken wurde das Super Sketch 
(Bild 5) von Personal Periphe- 
rals entwickelt. Es handelt 
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Die »Consumer 


Electronic Show« findet 


jedes Halbjahr in 
den USA statt. Auf 
der »Summer 
CES« in Chicago 


wurde ein Phänomen 


besonders deutlich, 


die Dominaz des 





Commodore 64 auf dem Heimcomputer- 
Markt. Software und kein Ende war die Devise. Dabei wurde 


fast jede neue 
dem C 64 un 


ramm-Entwicklung zunächst auf 
It und auf anderen Computern zu einem 


Fee Zeitpunkt in Aussicht gestellt. Aber auch bei 
er Hardware gab es für den C 64 einiges an Neuigkeiten. 


"Bild A Dieser Ausdruck wurde 





mit dem Okimate 10 von Okidata in Verbindung mit dem C' 64 erstellt. 


sich dabei um eine Kombina- 
tion von Grafiktablett und 
»CAD-Eingabetisch«. Die 
Übermittlung der Zeichen- 
koordinaten erfolgt nicht 
durch eine sensitive Fläche, 
sondern mit Hilfe eines be- 
weglichen Plastikarms. Die 
Auflösung beträgt 160 x 200 
Punkte und der Preis 60 Dol- 
lar. Beachtenswert ist die rei- 
che Auswahl an Software, wie 
beispielsweise der Master 
Home Planer für die schnelle 
Planung von Gebäudegrund- 
rissen und Zimmereinrich- 
tungen oder die Musik Box 
zum Komponieren auf dem 
Grafiktablett. 

In dieselbe Bresche wie 
das Koala Pad versucht auch 
der Digitiser (Bild 6) von dem 
Drucker- und Expansionher- 
steller Cardco zu schlagen. 
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Mit etwas besser Auflösung 
aber mit weniger Software. 
Koala Technologies selbst ist 
mit seinen Muppet Learning 
Keys (Bild 7) in Richtung »Ver- 
einfachung der Eingabe für 
Kinderhände« gegangen. 
Dieses Eingabemedium für 
Kinder im Alter zwischen 
dreiundsechs Jahren soll de- 
nen das Alphabet, die Zah- 
len, die Farben und Formen 
für 80 Dollar näherbringen. 


Mit Licht arbeiten 


Einen Schwerpunkt bei 
den neuen Produkten stell- 
ten die Präzisions- 
Lichtgriffel dar. Für nicht we- 
niger als 250 Dollar ist der 
Gibson Lichtgriffel zu haben 
(die Vermarktung erfolgt 


durch Koala). Dieser doch 
recht hohe Preis schließt je- 
doch zwei Disketten, die mit 
sehr brauchbarer Software 
vollgepackt sind, ein. Diese 
besteht aus dem PenPainter 
für Freihandzeichnungen, 
dem PenDesigner für techni- 
sche Zeichnungen mit vorge- 
gebenen Formen (Bild 8), 
dem PenÄnimator für Äni- 
mationen auf dem C 64 und 
dem PenMusician für die 
Einführung in die Musikkom- 
position mit dem Lichtgriffel. 

Von Inkwell gibt es eben- 
falls einen Präzisions-Licht- 
griffel mit einem umfangrei- 
chen Softwarepaket »Flexi- 
draw« (Bild 9). Zusätzlich zu 
den oben erwähnten Pro- 
grammen ist auch noch mit 
Transgraph ein Programm 
zur Übertragung der mit Fle- 


xidraw erzeugten Grafiken 
via Modem eingebaut und 
mit der Penware Utility Disk I 
ein Programm für die Ausga- 
be der Bilder auf Printer- 
Plotter erhältlich. Der Preis 
für Flexidraw ist mit 150 Dol- 
lar (einschließlich Lichtgrif- 
fel) als günstig zu bezeich- 
nen. 


Spaß am Griff 


Von Wico gab eseine gan- 
ze Reihe neuer Joysticks. So 
zum Beispiel den Dreiweg- 
Joystick mit auswechselba- 
ren Griffen für 33 Dollar oder 
den »Grip Handle« mit ex- 
trem kleiner Grundfläche 
zum besseren Halten mit ei- 
ner Hand für 25 Dollar. Es 
lassen sich nur die horizonta- 
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len und vertikalen Richtun- 
gen oder wahlweise auch 
die Diagonalen (zu)schalten. 

Nahezu unverwüstlich soll 
der Prostick II und III von 
Newport Controls sein. Der 
Griff ist aus massivem Edel- 
stahl und das Gehäuse aus 
unzerbrechlichen Kunststoff. 
Es gibt Feuerknöpfe sowohl 
für Rechts-alsauch für Links- 
händer. Stolze 25 Dollar ko- 
stet das Stück. 

Als Zubehör gibt es soge- 
nannte »Boards«, oft richtige 
Holzbretter in die die Joy- 
sticks der Atari- und Wico- 
Baureihe verrutschsicher 
eingesteckt werden können. 
Preis bei Thompson 10 Dol- 
lar. 


Sprache rein 
und raus 


Sprachausgabe auf dem 
Commodore 64 ist nicht neu, 








Bild 6. Der Digitiser von Cardco. 


es gibt bereits in Deutsch- 
land einige auf dem Markt 
(Speech Design, SAM). Lern- 
software mit integrierter 
Sprachausgabe hingegen ist 
neu. Comm Data stellte meh- 
rere Rechenprogramme für 
Kinder vor, bei denen die 
Aufgaben durch einen spe- 
ziellen Software-Synthesizer 
auch hörbar gemacht wer- 
den. 

Als kleines Wunder be- 
zeichnete ENG Manufactu- 
ring den von ihnen vorge- 
stellten Prototyp für die Spra- 
cheingabe »Chirpee« (Bild 
11). Bis zu 400 Wörter lassen 
sich damit erfassen. Dabei 
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istes gleichgültig, in welcher 
Sprache gesprochen wird, 
da diese Wörter vorher inei- 
ner Erkennungsphase dem 
System (C 64, Software und 
einem kleinen Gehäuse mit 
Mikrofon) praktisch erst bei- 
gebracht werden. Erstaun- 
lich dabei ist, daß »Chirpee« 
auch Wörter — in einem ge- 
wissen Rahmen — versteht, 
die vonanderen gesprochen 
werden, obwohl diese Leute 
nicht an der Erkennungs- 
phase beteiligt waren. Die 
Zuverlässigkeit bei einzel- 
nen läßt sich durch Mehr- 
fachnennungen auf bis zu 99 
Prozent steigern. 179 Dollar 


soll die Spracherkennung 
kosten. 

Von professionellen Key- 
boards bis zu Heimwerker- 
Lösungen reichte die Palette 
bei den Musikanbietern. 
Melodian zeigte ein Keybo- 
ard (200 Dollar) im moderen 


-« 


Sketch Board von Personal 


a 
Learnings Keys von Koala sollen den 

Kindern den Umgang mit dem 
C 64 durch lerngerechte Tastaturanordnung 


Bild 5. Das Super 
Peripherals. 


























Bild 7. Die Muppet 


erleichtern. 


Design mit 37 Tasten und 3 
Oktaven das von von einer 
elektronischen Orgel kaum 
zu unterscheiden ist. Die Mu- 
sik macht allerdings der 
Computer. Drei verschiede- 
ne Softwarepakete (jeweils 
40 Dollar) sind für den C 64 





Bild 8. Der Gibson 
Lichtgriffel mit dem PenDesigner 









von Melodian vorgestellt 
worden: ConcertMaster 


(Bild 12) ein Programm für 
die gehobenen Ansprüche, 
MelodyMaster zum Erler- 
nen der Musik und der 
RhythmMaster der vor ei- 
nem vor allen den perfekten 
Rhythmus beibringen soll. 





Bild 9. Mit dem 


Möglichkeit zu geben, mit 
dem Spielen anzufangen. 
Der Jazzmusiker Ryo Kawa- 
saki stellte seine für Sight & 
Sound entwickelte Musik- 
software Kawasaki Synthesi- 
zer (50 Dollar) und Rythm 
Rocker (etwa 40 Dollar) 
selbst vor. Diese Musikpro- 





FlexiDraw von Inkwell läßt sich problemlos auf 
der Pixelebene arbeiten. 


Bei allen drei Programmen 
sind die eben gespielten No- 
ten sofort auf dem Bild- 
schirm zu sehen. Es können 
aber auch gespeicherte 
Stücke nachgespielt wer- 
den, wobei die Programme 
jeden gemachten Fehler an- 
zeigen. 

Sight & Sound stecken eine 
eigene, kleine Tastatur für 40 
Dollar (Bild 13) auf den Com- 
modore 64, um den Kosten- 
aufwand zu reduzieren und 
um dem Musiker sofort die 


gramme sind mittlerweile so 
ausgereift, daß fast kein Un- 
terschied mehr zu einem di- 
gitalen Sythesizer bemerk- 
bar ist. 


Die Softwareflut 


Das Angebot an neuen 
Software-Produkten war fast 
unüberschaubar. Beach- 
tenswert dabei, fast alle Soft- 
warehersteller zeigten ihre 
neuen Programme zunächst 





Bild 11. Spracheingabe ist nun auch 
mit dem C' 64 möglich. »Chirpee» versteht bis 
zu 400 Wörter in jeder Sprache. 
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auf dem Commodore 64 mit 
der Ankündigung, diese 
Programme würden zu ei- 
nem späteren Zeitpunkt 
auch für andere Computer 
wie dem PCir, dem Äplle IIc 
oder den Ätari-Systemen er- 
hältlich sein. AnjedemStand 
war also mindestens ein C 64 
vertreten, aufdem ein neues 
Programm lief. Ein Trend 
war besonders deutlich, die 
Hinwendung zur Lernsoftwa- 
re und Spielen mit »einge- 
bautem« Lerneffekt. Die 
Action- 
sind zwar nicht tot, wurden 
aber in ihrer Bedeutung 
etwas zurückgedrängt. 





und Arcadespiele 






Arten von Krankheitserre- 
gern und deren Auswirkun- 
gen auf den Menschen ken- 
nen. Äberauch Faktoren wie 
Alter, Streß, Drogen oder Al- 
kohol und deren Einfluß auf 
eine Zelle, einen Zellver- 
bund oder den Menschen 
werden berücksichtigt. 

Mit Type»n«Wirite (Bild 16) 
wurde nicht nur ein Textver- 
arbeitungssystem für Kinder 
vonHES vorgestellt. Damit ist 
auch ein Tastaturlernpro- 
gramm verknüpft, das von 
ersten Schritten mit der 

Commodore-Tastatur 
-in Form von attak- 
ierenden Buch- 
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Bild 10. Sowohl für Rechts- und 
Linkshänder geeignet. 


Einige Beispiele für die 
neue Generation der Lern- 
programme sollen zeigen, 
wasunsdemnächsterwartet. 
Von Imagic stammt das Pro- 
gramm Injured Engine (Bild 
14). Mit Injured Engine soll 
man die Funktionsweise ei- 
nes Öttomotors kennenler- 
nen. Dazu kann man sich die 
einzelnen Funktionsblöcke 
wie Kraftstoffzufuhr oder 
Elektrik einzeln oder im Ver- 
bund betrachten und erklä- 
renden Text abrufen. Im 
nächsten Schritt wird irgend- 
woeinFehlereingebaut, den 
es durch Diagnose und Aus- 
wechseln bestimmter Teile 
zu lokalisieren gilt. Man kann 
aber auch selbst Fehlfunktio- 
nen in einzelnen Blöcken 
auslösen und sich die Aus- 
wirkungen auf die anderen 
Elemente ansehen. 

Ein ähnliches Produkt ist 
Cell Defense (Bild 15) von 
HES. Hier muß man sich als 
menschliche Zelle mit sei- 
nem Immunsystem den 
Attacken von Bakterien und 
Viren erwehren. Ganz ne- 
benbei lernt man den Zel- 
laufbau, die verschiedenen 


staben und Zahlen — bis zu 
perfekten Schreibmaschi- 
nenkenntnissen hinführt. 

Auch bei CBS Software hat 
man sich nach der Pleite mit 
den Arcadespielen voll auf 
die Lernsoftware gestürzt. 
Das Motto von CBS lautete: 
»Von der Sesam Straße bis 
zur Wall Street«. Dies weist 
auch schon auf die Zielrich- 
tung der mittlerweile 47 Pro- 
gramme hin; Kinder im Vor- 
schulalter mit einfachen und 
Studenten sowie Autodidak- 
ten mit gehobenen Lernpro- 
grammen zu versorgen. »For- 
cast« (Bild 17) soll zum Bei- 
spiel angehenden Meteoro- 
logen ein Hilfsmittel für das 
bessere Verständis der Wet- 
tervorhersage sein. 

Aber auch die Actionspie- 
le selbst haben eine Verän- 
derung erfahren. Als Bei- 
spiel soll das Spiel Karate 
(Bild 18) von Broderbund die- 
nen. Das Spiel zeichnet sich 
vor allen durch seinen 
Zeichtrick-Effekt aus. Der 
Karateka wird dabei vom 
Spieler mit dem Joystick an 
die einzelnen Gegner heran- 
geführt und muß sich gegen 











Bild 12. Das 





ard 
professionel von 
C oncertMaster 


Bild 14. Injured Engine ist ein ausgezeichnetes 


Lernprogramm von Imagic, um die Funktionswei- 


se eines Ottomotors kennenzulernen. 


die Braun- und Scharzgurte 
mit gekonnten Schlägen und 
Ausweichmanövern wehren. 
Die Abenteuerspiele wer- 
den immer beliebter und 
entsprechend ist die Reak- 
tion der Hersteller darauf. 
Mittlerweile braucht man 
nicht mehr gegen Gnome 
und Drachen zu kämpfen, 
sondern es werden richtige 
Szenen aus dem Leben ge- 
nommen. Bei »Dallas Quest« 
(Bild 19) von Datasoft kann 
man seine Fähigkeiten ge- 
gen den Fiesling ]J.R. einset- 
zen. Aber auch Comic-Figu- 
ren dienen als Vorlage. So 
hat Commodore Software 
den »Hulk« (Bild 20) in ein 
Abenteuerspiel umgesetzt. 
Ein beliebtes Thema ist 
auch der Zehnkampf gewor- 
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den. Summer Games von 
Epyx, Declathon von Activi- 
sion oder 6 Olympic Games 
(Bild 21) von HES sind mo- 
mentan die drei konkurrie- 
renden Programme. Sie un- 
terscheiden sich mehr oder 
weniger lediglich in der Aus- 
wahl der Wettkampfarten. 
Gemeinsam ist beiallen drei 
die hohe Spielmotivation. 
Bei den Anwenderpro- 
grammen dominierten vor 
allen Dingen Textverarbei- 
tungund Datenbanken. Dazu 
zählten der PaperClip und 
der Consultant von Batteries 
Included, der Bank Street 
Writer von Broderbund Soft- 
ware, der Creative Writer 
von Creative Software, das 
Supertext von Muse Softwa- 
re, Homeword von Sierra on 





Bild 15. Cell Defense von 
HES lehrt die medizinischen Grundkenntnisse 
des Immunsystems. 


line, der Data Manager von 
Timeworks, der OmniWriter 
von HES und und ... Zu vielen 
dieser Textverarbeitungpro- 
gramme gibt es sogenannte 
Spell Checker. Diese ermög- 
lichen eine Überwachung 
der Rechtschreibung, aller- 
dings nur im Englischen, da- 
für aber von bis zu 30000 
oder 40000 Wörtern. Doch 
die Zielrichtung ist vorgege- 
ben, die Realisierung auf 
dem deutschen Markt läßt 
aber noch auf sich warten. 
Interessant für uns dürfte 
auch Kwik-Load (Bild 22) von 
Datamost sein. Damit lassen 
sich Programme dreibis fünf 
mal schneller laden. 

Bei Commodore selbst 
gab es wieder einmal eine 
Umbennung. DerC 264heißt 


in Zukunft Plus/4. Warum 
dies? Nun für den C 264 wur- 
den das Textverarbeitungs- 
das Grafik- das File- und das 
Tabellenkalkulationspro- 
gramm wahlweise als Option 
angeboten. Das heißt man 
konnte sich für das eine oder 
andere Programm entschei- 
den. Inden Plus/4 sind diese 
vier fest eingebaut und kön- 
nen die Daten interaktiv aus- 
tauschen. Ansonsten ist der 
Plus/4 völlig identisch mit 
dem C 264. Eine Bemerkung 
am Rande: Diese vier Pro- 
gramme die von TriMicro für 
Commodore entwickelt wur- 
den, sind bei Tri Micro auf 
Diskette auch für den C 64 
erhältlich. Dieser Umstand, 
daß neue Programme für 
den Plus/4 auch gleichzeitig 
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Bild 18. Karate 


von Broderbund. Der Zeichentrickeffekt 
ist faszinierend. 


für den C 64 angeboten wer- 
den, zeigt einerseits deut- 
lich, daß der Plus/4 den C 64 
nicht ablösen soll, sondern 
lediglich nach oben hin er- 
gänzen. Anderseits bedeu- 
tet dies für den potentiellen 
Käufer keine Komplizierung 
seiner Entscheidung. Dem C 
64 steht ein langes Leben be- 
vor. Vom C 364 wurde übri- 
gens Abstand genommen. 
Er wird wohl vorläufig nicht 
auf den Markt kommen. 
Meine amerikanischen 
Kollegen waren relativ über- 
rascht, als sie hörten, daß 
Commodore die neue Hard- 
ware bereits auf der 
Hannover-Messe vorgestellt 
hat. Da wären zunächst ein- 
mal der Typenraddrucker 
DPS 1101, der kompatibel mit 
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dem Plus/4 sein soll. Der 
MPS 802 Matrix-Drucker mit 
einer Druckgeschwindigkeit 
von 60 Zeichen pro Sekunde. 
Er hat hat in etwa dieselben 
Leistungsmerkmale wie der 
VC 1526. Der MCS 801 Farb- 
matrix-Drucker mit 30 Zei- 
chen pro Sekunde und acht 
vertikalen Punkten sowie 640 
Zeilen, sowie der Billig- 
drucker MPS 803, welcher 
wohl als Ersatz für den VC 
1515 auftreten soll. Fürden C 
16 (der wird auch weiterhin 
so heißen) gibt es eine eige- 
ne Datasette, die 1531. Und 
letztendlich der neue Farb- 
monitor CM 141, der so neu 
eigentlich auch wieder nicht 
ist. Es basiert auf dem VC 
1701/1702 und wurde ledig- 
lich einer kosmetischen Kor- 





Bild 19. Versuchen 
Sie Ihr Glück gegen das Ekel ].R. in 
Dallas Quest von Datasoft. 


rektur zur Designanpassung 
an den Plus/4 unterzogen. 
Die Angaben für die Verfüg- 
barkeit selbst für den ameri- 
kanischen Markt sind von 
Commodore wieder einmal 
sehr schwammig: in der 
zweiten Hälfte des Jahres 
1984. Dies ist aber ein altbe- 
kanntes Leid aller Firmen; 
man muß neue Produkte re- 
gelmäßig auf den großen 
Messen ankündigen, um im 
Gespräch zu bleiben, die 
Lieferzeiten stehen dann auf 
einem anderen Blatt. Die 
Preise und die Einführung 
auf dem europäischen 
Markt sind also mehr oder 
weniger noch Zukunftsmu- 
sik. 

Commodore engagiert 
sich jetzt verstärkt im Be- 


reich Software. Es findet da- 
bei ein Abkehr von der bis- 
her verfolgten Linie, billige 
und deswegen auch relativ 
einfache Software anzubie- 
ten. Commodore scheint von 
nun an auf Qualität zu setzen. 
Durch ein Abkommen mit 
der Marvel Comics Group 
werden deren Comic- 
Helden in Abenteuerspiele 
umgesetzt. Typische Bei- 
spiele sind die Questprobe- 
Serien Hulk und Spiderman. 
Dabei sollen die Comic- 
Bücher von Marvel simultan 
mit den Abenteuerspielen 
verkauft werden. Weitere 
Produkte in der Abenteuer- 
Serie sind Satan’s Hollowund 
Solar Fox. 

Auch bei den Lernpro- 
grammen gibt es von Com- 
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modore viel Neues zu be- 
richten. Mit Just Imagine kön- 
nen Kinder ab vier Jahren ih- 
re eigenen AÄnimationsge- 
schichten kreieren. Mit 
Number Builder müssen die 
Kinder eine bestimmte Zahl 
durch Addieren, Subtrahie- 
ren, Multiplikation oder Divi- 
sion erhalten. Für alle die 
Spaß an der Astronomie ha- 
ben, gibt es Window to Gala- 
xies. Ein Programm, das von 
jedem Punkt der Erde zu je- 
dem Zeitpunkt die Sterne- 
konstellation zeigt. Die Posi- 
tionen von mehr als 12000 
Sternen, von 88Sternbildern, 
der Sonne, des Mondes, von 
acht Planeten, von Komme- 
ten und Galaxies können auf 
dem Bildschirm dargestellt 
werden. In der Productivity- 
Rubrik stach besonders das 
Grafikprogramm B/Graph 
(Bild 23) hervor. 

Auf der CES ist es üblich, 
die besten Programme zu 
küren. Diese finden sich 
dann an den verschiedenen 
Ständen mit den in Amerika 


Matchboxes von Broder- 
bund Software, Jack Attack, 
Micro Cookbook und Inter- 
national Soccer von Commo- 
dore, Childpace von Compu- 
terrose, Dragonhawk, In the 
Chips und Moondust von 
Creative Software, Music 
Construction Set von Electri- 
nic Arts (ECA), Fax und Sum- 
mer Games von Epyx, Om- 
niWriter/Omnispell, CellDe- 
fense, HES Games und Turt- 
le Toyland,Jr. von Human En- 
gineered Software (HES), 
The Rug Rider von Interna- 
tional Tri Micro, Super-Text 
und Space Taxi von Muse 
Software, 64 Doctor von Prac- 
ticorp, Superbase 64 von 
Precision Software, Falcon 
Patrol von Quicksilvia, Pogo 
Joe von Screenplay, Musi- 
comp-Music Processor von 
Sight & Sound International, 
Model Diet, Computer Me- 
chanic und Dancing Feats 
von Softsync, Flight Simula- 
tor II von Sublogic, Cam- 
pain’84 von Sunrise Software, 
Data Manger 2 und Dungeon 





Bild 22. Kwik-Load von Datamost 


so beliebten Auszeichnun- 
gen oder Orden wieder. Die- 
se Software Showcase ge- 
nannte Prämierung betraf 
nur Programme für die wich- 
tigsten fünf Heimcomputer: 
Apple II/IIe, IBM-PCir, Atari 
Home Computer, ColecoVi- 
sion/Adam und mit weiten 
Abstand vorne, Commodore 
64. 

Gekürt wurden Beach- 
Head von Access Software, 
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of the Algebra von Time- 
works sowie schließlich Mu- 
siCalc von Waveform Corpo- 
ration. Diese Programme 
wurden also von einer unab- 
hängigen Jury zu den Ren- 
nern auf dem Commodore 
64 erklärt. 

Der Commodore 64 hat ei- 
ne überragende Marktstel- 


deren Systeme müssen war- 
ten, bis die Programme um- 
geschrieben sind. Bisher 
war dasnoch umgekehrt (vor 
allem was die Atari-Com- 
puter betriff). Das Hard- 
ware-Ängebot auch von un- 
abhängigen Herstellern 
wird immer umfangreicher. 
Andere, neue Computer 
werden einige Schwierigkei- 
ten haben, sich gegen die 


Dominanz des C 64 durchzu- 
setzen. Von MSX-Systemen 
war zwar schon einiges zu se- 
hen, aber der große Durch- 
bruch ist noch lange nicht in 
Sicht. Es bleibt abzuwarten, 
wann es den ersten C 64- 
kompatiblen Computer (ähn- 
lich wie beim IBM PC) auf 
dem Markt gibt. (aa) 
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Bild 23. B/Graph von Commodore 
vereinfacht die Erstellung von dreidimensionalen 
Blockgrafiken ungemein. 
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lung gewonnen. Die neueste 
und beste Software wird auf 
dem C 64 vorgestellt, die an- 






























































Steuern mit dem 
User-port? 


Ich möchte über den Userport 
einen x/y/z Bohrfrästisch steu- 
ern. Wie ist so etwas zu realisie- 


ren? 
Thomas Wistuba 


Probleme mit Monitoren 


Wie schließe ich einen Moni- 
tor an den VC 20 an? Anfragen 
bei Händlern ergaben nur, daß 
ein entsprechendes Kabel anzu- 
fertigen sei, aber nicht wie. Wer 
kann helfen? 

Inge Märkle 


Ich besitze einen Commodo- 
re SX 64 und ein Sony Farb-TV 
ohne Video-Eingang. Wie kann 
ich diese Geräte zusammen- 
schalten, damit der Farbfernse- 
her als Monitor genutzt werden 
kann? 

Hans-Jürgen Mundstock 


Wie bekomme ich die strei- 
fenförmig auftretenden Farb- 
ränder auf dem Fernsehschirm 
weg? 

Gibt es eine Möglichkeit, aus 
dem C 64 ein RGB-Signal zu ho- 


len? 
Peter Stahn 


Ich besitze einen Blaupunkt- 
Farbfernseher mit RGB-Ein- 
gang. Welche Firma bietet ein 
RGB-Interface (bzw. entspre- 
chenden Schaltplan) für den C 
64 an und zu welchem Preis? 

Gernot Murawski 


Wie kann ich mit dem Video- 
Recorder Panasonic N8003T das 
Signal vom Computer aufneh- 
men? Der Fernseher vom Typ 
Saba T5658 und 75 Ohm-Kabel 
funktioniert einwandfrei. 

Eugen Anger 


Wie schließe ich den C 64 an 
einen Fernseher mit Scart- 
Buchse an (Nordmende 1534, 
3540; Loewe)? Walter Wagner 
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Anschlußprobleme mit 
Druckern 


Wie kann man die KB50 Tasta- 
tur des Brother HRI5 an den 
Userport des C 64 anschließen, 
um für Textverarbeitungssyste- 
me eine DIN2137-Tastatur zur 
Verfügung zu haben? 

Horst Singer 


Ich habe eine Schreibmaschi- 
ne Brother CE-50 mit seriellem 
Interface (Adresse 4), die mit 
meinem C 64 gut zusammenar- 
beitet. Nur mit Datamat von Da- 
ta Becker kann ich keinen Aus- 
druck erstellen. Die Firma hat 
mir auf schriftliche Anfrage nur 
nichtssagend geantwortet. Wer 
kann helfen? 

Gerd Mandelkow 


Kann man die Kugelkopf- 
Brother 7900 (durch einen 
Trick?)überirgendein Interface 
an den C 64 anschließen? 

Stefan Wülfert 


Gibt es eine softwaremäßige 
Verbindung zwischen dem C 64 
und Brother CE-60? 

Manfred Mattern 


Wie kann ich die Sonderzei- 
chen der Schreibmaschine Pri- 
vileg 3000 ansprechen und aus- 
drucken? Welchen Code hatdie 
KB-Il-Taste? 

Dr.Ernst Suchalla 


Ich habe einen Fernschreiber 
Siemens T100 und suche einen 
Anschlußplan für den C 64. 

Burghard Schmolling 


Wer kennt einen Hard- oder 
Software-gesteuerten Anschluß 
einer Olivetti Praxis 30an den C 
64? Josef Hauk 


bei Druckerausgabe 

Meine Hardware: VC 64, Flop- 
py 1541, NEC Drucker 8023 B-N 
mit Interface 9200 für VC 64. Bei 
Ausgabe über Drucker von mir 
erstellter Programme, als auch 
gekaufter Programme (zum Bei- 
spiel Datamat von Data Becker) 
erfolgt nach unterschiedlich 
langer Druckerausgabe die 
Fehlermeldung »Device not 
present error«. Manchmal funk- 
tioniert die Druckerausgabe 
(mit Endlosblatt) seitenweise 
und unterbricht dann plötzlich 
mit oben angegebener Fehler- 
meldung; das andere Mal wer- 
den nur ein paar Zeilen ausge- 
geben und wieder erfolgt die 
obige Unterbrechung. Natür- 











lich sind alle Geräte (C 64, Flop- 
Py, Drucker) eingeschaltet und 
betriebsbereit. Handelt es sich 
hier nur um einen Hardware- 
oder Softwarefehler? Kann mir 
hierzu jemand helfen? 


(Rudolf Ott) 


Hardcopy mit NEC 
8023B-N 
Wer bietet Software an, um 
mit C 64 und Drucker NEC 
8023B-N hochauflösende Grafik 
und Hardcopys zu erstellen? 
Wolfgang Jaworski 


Bits hörbar machen? 

Ist es beim C 64 möglich, 
beim Laden von Datasette die 
Signale hörbar zu machen? 

Werner Frings 


Simons Basic mit 
Turbo-Tape? 


Wer kennt eine Möglichkeit, 
Simons Basic und Turbo-Tape 
gleichzeitig benutzen zu kön- 
nen? Rolf Lehr 


re] 
Knisternde Bits? 


Mein C 64 gibt nach dem Ein- 
schalten knisternde Geräusche 
über den Fernseher von sich, 
die allerdings mit der Zeit wie- 
der verschwinden. Es liegt kein 
Wackelkontakt am Kabel vor. 
Wer weiß Rat? 

Matthias Brunke 


Fr Ve en 
Text und Grafik mischen? 


Ich besitze einen Commodo- 
re 64 und bin gerade dabei, ein 
Adventure zu schreiben. Nun 
stehe ich vor einem Problem. 
Wie kann ich in Simons Basic 
hochauflösende Grafik und 
Text gleichzeitig darstellen? Ich 
benötige nur ein kleines Text- 
fenster für die Eingabe von Ant- 
worten. Frank Schager 


Wer kennt 
»Aztec Tomh«? 


Ich besitze das Spiel »Aztec 
Tomb« für den C 64 und komme 
einfach nicht weiter. Nachdem 
ich am Bullen vorbei durch das 
Tor gehe, stehe ich vor einer 
Pflanze auf »Waste Ground. Ich 
trage bei mir: old chest, red 
clock, dead mouse, door-key. 
Wer kann mir weiterhelfen? 

Stephan Sache 
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Hier gibt es Glubs 


DerICC hat derzeit 26 Mitglie- 
der, ausschließlich C 64-User 
mit Datasette, 1541 Floppy, 1515/ 
1526/Epson FX-80 Drucker. Er 
beschäftigt sich schwerpunkt- 
mäßig mit allen Äspekten des 
List- und Kopierschutzes, Mo- 
demtechnik, Hilfestellung für 
Einsteiger, Softwaretausch, 

Hardware-Sammelbestellun 
gen, Förderung von Kommuni- 
kation unter den Mitgliedern auf 
allen möglichen Ebenen. Tref- 
fen gibt es derzeit noch nicht, 
sind aber mittelfristig geplant. 

Geplant ist für die nahe Zu- 
kunft eine eigene Mailbox. Die 
Entwicklung von dazu nötiger 
Betriebssoftware ist ein weiterer 
Arbeitsschwerpunkt. Der Club 
freut sich in diesem Zusammen- 
hang über jegliche Form der 
Mithilfe. Neue Mitglieder sind 
natürlich jederzeit willkommen. 

Der Club gibt monatlich ein 
l2seitiges Info für seine Mitglie- 
der heraus. Der Jahresmit- 
gliedsbeitrag ist 60 Mark, eine 
dreimonatige Probemitglied- 
schaft für 20 Mark ist möglich. 
Ein Probeinfo gibt es für 5 Mark. 

INTERFACE-COMPUTER- 
CLUB, Hindenburgstr. 98, D-2120 
Lüneburg, den 22/06/84. 


Software per Telefon 


Wir sind ein C 64-Userclub, 
der sich seit einiger Zeit intensiv 
mit der neuen Technik der DFÜ 
per Telefon beschäftigt. 

In unserem monatlichen Club- 
info berichten wir ausführlich 
über DFÜ und die damit zusam- 
menhängenden Probleme — na- 
türlich vornehmlich aufden C 64 
bezogen. 
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Wir planen, ab Mitte Juli unse- 
ren Mitgliedern per Telefon Soft- 
ware zu schicken. Ein Terminal- 
Programm, das den C 64 in ein 
intelligentes Terminal verwan- 
delt, wurde bereits von uns er- 
stellt. 

Speziell für DFÜ-Neulinge ha- 
ben wir ein DFÜ-Sonderinfo mit 
allen Informationen, die man 
braucht um mit dem © 64 online 
zu kommen, herausgegeben. 
Das Info enthält auch eine Be- 
schreibung unseres Terminal- 
programmes. Interessierte kön- 
nen es gegen 3 Mark in Brief- 
marken beiunsbestellen. Änfra- 
gen bitte an unsere Club- 
adresse oder telefonisch. 

Andreas Voigt 
INTERFACE-COMPUTER-CLUB, 
2120 Lüneburg, Hindenburggstr. 
98, Tel.: 04131/37876. 





DE ee) 
Lo Me | 
Adreß- und Telefonregi- 


ster aus Ausgabe 5 mit 
Datasette? 


Ich möchte gerne »Adress- 
und Telefonregister« aus der 
Ausgabe 5 mit Datasette ver- 
wenden, weiß aber als totaler 
Anfänger nicht, wie ich das Pro- 
gramm umschreiben muß. Ist 
dies überhaupt möglich? 

Dieter Plaum 


Mit einigen Änderungen läßt 
sich das Programm auch mit Da- 
tasette verwenden: 

990 ...: OPEN 1,1,0 
1050 ...: OPEN 1,11 
2040 ...:OPEN 111 
Bei dieser Version funktioniert 
auch das »SUCHEN» und die 
»ÄUSGABE SORTIERT". 
Jürgen Zier 





Basic-Zeilen größer 
80 Zeichen? 


Die maximale Zeilenlänge 
beim C 64 beträgt 80 Zeichen. 
Bei manchen Programmen wer- 
den diese teilweise überschrit- 
ten. Wie kann man das Pro- 
gramm trotzdem zum Laufen 
bringen? 

Rainer Jost 


Diese vor allem von Anfän- 
gern häufig gestellte Frage läßt 
sich einfach beantworten. Im 
Handbuch des C 64 befindet 
sich im Anhang D auf Seite 
130/131 eine Tabelle der Abkür- 
zung von Basic-Schlüsselwör- 
tern. Fast jeder Basic-Befehl läßt 
sich durch Eingabe des ersten 
Buchstabens, gefolgt vom ge- 
shiftetenzweitenBuchstabendes 
Befehls abkürzen. Zum Beispiel 
wird aus der Eingabe von P 
(Shift) O das Wort POKE, oder P 
(Shift)}R wird zu PRINT# im Ge- 
gensatz zu »% für PRINT. So kann 
eine Basiczeile beim Listen 80 
Zeichen überschreiten. Versu- 
chen Sie nicht, diese Zeile hin- 






terher zu verändern, indem Sie 
mit dem Cursor in diese Zeile 
gehen und nach einer Ände- 
rung wieder mit RETURN ver- 
lassen. Dann wird automatisch 
der letzte Teil, der sich in der 
dritten Reihe befindet, abge- 
schnitten. Zum Editieren geben 
Sie am besten die komplette Zei- 
le mit den entsprechenden Ab- 
kürzungen noch einmal ein. 


BETTER) 
Grafik mit 1526? 


Ich besitze den 1526-Drucker 
von Commodore. Wie kann man 
ihn grafikfähig machen? 

Percy Dahm 








Der Commodore 1526 ist hard- 
waremäßig nicht für hochauflö- 
sende Grafik vorgesehen, daß 
heißt, es besteht keine Möglich- 
keit einer Einzelnadelansteue- 
rung. Allerdings kann man ein 
Zeichen selbst definieren undso 
— allerdings sehr umständlich 
— Grafik drucken. Dazu defi- 
niert man sich das Zeichen als 
geeignetes Grafiksymbol, fährt 
durch Ausgabe einer Reihe von 
Blanks an die richtige Position, 
druckt das Zeichen und veran- 
laßt dann einen Wagenrücklauf 
ohne Zeilenvorschub. Nun wird 
das nächste Grafikzeichen delfi- 
niert und das ganze Spiel wie- 
derholt sich. Mit dieser Metho- 
de ist sogar eine Grafik- 
Hardcopy möglich (siehe 64'er, 
5/84, Seite 74: »Ein eigentlich un- 
mögliches Programme). 


Von Kassette auf Floppy? 


Ich möchte mir demnächst ei- 
ne Floppy 1541 kaufen. Kann 
man mehrere Programme, die 


man auf Kassette hat (gekaufte 
Spiele und anderes), auf eine 
einzige Diskette speichern um 
Platz zu sparen? Wenn ja, wie? 
Andreas Schmelzer 


Natürlich kann man auch meh- 
rere Programme auf einer Dis- 
kette abspeichern. Kommerziel- 
le Software auf Kassette ist je- 
doch in der Regel mit Autostart 
und einem Softwareschutz ver- 
sehen, so daß ein Kopieren in 
der Regel nicht möglich ist. 
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Druckerroutinen um- 
schreiben? 


Wie kann ich Programme, die 
für den Drucker VC 1526 ge- 
schrieben sind und dessen Fä- 
higkeiten ausnutzen für den VC 
1525 umschreiben? 

Bruno Schiffer 


Der VC 1526 verfügt über eine 
Reihe komfortabler Befehle zur 
formatierten Ausgabe, die auf 
dem VC 1525 nicht vorhanden 
sind. Diese Formatierungsbe- 
fehle müssen für den VC 1525 
durch Software ersetzt werden. 
Im Prinzip geht es darum, eine 
Art PRINT USING-Routine zu 
schreiben. Am besten schreibt 
man alle Programmteile, die 
Ausgaben an den Drucker lie- 
fern, völlig neu. 


mE VB] 
»Strubs« mit Datasette? 


Warum bringen verschiedene 
POKEs, die im Commodore- 
Basic einwandfrei funktionieren 
(zum Beispiel Listschutz) mit Si- 
mons Basic das Programm zum 
Abstürzen? 

Sebastian Obermayr 


»Strubs« kann leider nur mit 
der Floppy arbeiten, da mehre- 
re Files gleichzeitig geöffnet 
werden. 


een] 
POKEs im Simons Basic? 


Warum bringen verschiedene 
POKEs, die im Commodore- 
Basic einwandfrei funktionieren 
(zum Beispiel Listschutz) mit Si- 
mons Basic das Programm zum 
abstürzen? 

Sebastian Obermayr 


Einige Adressen der Zeropa- 
ge werden von Simons Basic an- 
ders belegt, so daß eine Reihe 
von POKE-Befehlen nicht mehr 
funktioniert. 


Bene 
Nochmals Simons Basic 


Benötigt Simons Basic einen 
Teil des Basic-RAMs? Wenn ja, 
wieviel? 

Lars Steubesand 
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Simons Basic belegt die obe- 
ren acht KByte des Änwender- 
RAM, der verfügbare freie Spei- 
cher für Basicprogramme redu- 
ziert sich also um diese acht 
KByte. 


Resettaste für VC 20? 


Sind die Anschlüsse für eine 
Resettaste am Userport von VC 
20 und C 64 identisch? Ist so ei- 
ne Taste auch am C 64 an- 
schließbar? 

Adrian Schneider 

Die beiden Userports sind 
nicht 100% identisch, jedoch gibt 
es beim Anschluß eines Resetta- 
sters keine Unterschiede. Durch 
Verbindung von Pin l und Pin 3 
erfolgt bei beiden Computern 
ein Reset. 


Raubkopien strafbar? 


Darf man gekaufte Software 
auf Leerkassetten kopieren und 
verkaufen? Oder ist das gesetz- 
lich verboten, so daß eine Be- 
strafung erfolgt? 

Maik Rogalla 


Das Kopieren und Weiterver- 
kaufen von fremder Software ist 
ein Verstoß gegen das Urheber- 
recht und wird entsprechend 
geahndet. Man muß in jedem 
Falle mit hohen Schadenersatz- 
forderungen der Herstellerfir- 
men rechnen. 


Bauanleitung für EPROM 
Brenner 


Wer hat eine Bauanleitung für 
einen EPROM Brenner für C 64? 
Ausgabe 4/84. 


Ich habe eine Bauanleitung 
zum Programmieren der ICs 
2716, 2732 und 2764 entwickelt. 
Diese besteht aus einem Layout 
mit Bauanleitung plus dazugehö- 
render Software. Die Kosten sind 
wegen der wenigen Bauteile 
sehr gering und liegen noch un- 
ter 50— DM (o. Nullpontfas- 
sung). 

Bernd Bause, Bahnhofstr. 21, 
2000 Hamburg 55. 


Ich habe so wenig 
me. Bitte ! Bitte !Schickt mir wel- 


che. 
Sven Reichel 


So ergeht es wohl jedem An- 
fänger. Wir von der 64’er Redak- 
tion empfehlen das 64'er Maga- 
zin als Abhilfe. 


Apple-Software 
für den G 64 


Wie Sie in Ausgabe 4/84, Seite 
9 schreiben, ist bei Mimic Sy- 
stems, Kanada ein sogenanntes 
AP-Modular Pak, das erlaubt 
Apple Il-kompatible Soft- und 
HardwareamC 64zu betreiben, 
erhältlich. 

Leider geben Sie die genaue 
Adresse des Anbieters nicht an. 
Nun möchte ich Sie um die ge- 
naue Adresse von Mimic bitten. 

Walter Wagner 


Hier ist die Ädresse: 
Mimic Systems 
Pioneer Software, Inc. (# 217 — 
620 View Street, Victoria, BC, 
Canada, V8W 176). 


Programme weg beim 
Reset? 


Ich habe in meinen C64 eine 
Resettaste eingebaut, und 
wenn ich diese benutze, ist das 
Programm weg. Wie kann ich 
dieses wieder her- 
einholen?Suche dazu die PEEKs 
und POKEs mit Adressen. 

Arndt Wörau 


Nach einem Reset bleiben Ma- 
schinenprogramme nach wie 
vor im Speicher erhalten und 
können wieder mit entsprechen- 
dem Sys gestartet werden. (Dies 
ist jedoch nicht der Fall bei Ma- 
schinenspracheprogrammen, 
die im Kassettenpuffer liegen 
[dez. 828-1019], da dieser bei ei- 
nem Reset gelöscht wird.) Bei 
Basicprogrammen muß man 
schon mehr machen, um es wie- 
der herzuholen: 


POKE 2049,99: POKE 2050,99: 
POKE 45,X: POKE 46%: SYS 
42291 

Dabei sind X und Y die Werte, 
die man vor Drücken des Reset- 
Knopfes durch 
?PEEK(45);PEEK(46) abfragen 
sollte. Kommt man aus Versehen 
auf den Knopf und weiß den In- 
halt dieser Speicherstellen nicht 
mehr, so empfiehlt essich, in die 
Speicherstellen 45 und 46 ange- 
nommene Werte für die Pro- 
grammendadresse zu POKEn 
(45 = low Byte, 46 = high Byte). 


Ein Tip des Autors 


In meinem Programm »Adreß- 
und Telefonregister«, das in der 
Ausgabe 5/84 im 64’er-Magazin 
veröffentlicht wurde, habe ich 
zur Eingabe einer Telefonnum- 
mer fünfStellen vorgesehen. Um 
mehr Stellen für eine Eingabe zu 
ermöglichen, ist die Zuweisung 
der Variable | in Zeile 1970 zu 
ändern (zum Beispiel 1=8 für 8 
Telefonziffern). Die nachstehen- 
den Befehle in derselben Zeile 
bleiben unverändert. 

Außerdem möchte ich noch 
aufeinen »Schönheitsfehler«hin- 
weisen: In Zeile 1060 muß esstatt 
»fori = o to an« heißen: »fori=0 
to an« Da o allerdings im Pro- 
gramm nicht als Variable be- 
nutzt wird und daher immer * ist, 
hat dieser Fehler keine Auswir- 
kungen auf den Programmab- 
lauf. 

Bei der Eingabe der Datensät- 
ze sollte darauf geachtet wer- 
den, nicht die »f7«Taste zu 
drücken, umetwa ein Feld freizu 
lassen, da sonst die Datei später 
nicht korrekt abgespeichert 
werden kann. Soll ein Feld frei 
gelassen werden, soist die Leer- 
taste (und »return«) zu drücken. 

Arne Weitzel 


Wer kennt Master 64? 


Ich möchte meine mit Master 
64 entwickelten Programme auf 
8032 übertragen und suche In- 
formationen bzw. Anwender 
von Master Version 64 und 8032. 
Wer kann helfen? 

Walter Hochwald 
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o erging es auch mir an einem 

trüben Wintertag, kurz vor den 

ins Haus stehenden Festtagen 
und der damit verbundenen Freizeit 
zwischen den Tagen. Der erste 
Gang führte kurzentschlossen in ei- 
nen für gewöhnlich gut sortierten 
Zeitschriftenladen. Nach einigem 
Stöbern im Berg der Computerzeit- 
schriften verklärte sich der schon et- 
‚wastrübe Gesichtsausdruck desLa- 
deninhabers zu seligem Lächeln, 
als er den Rechnungsbetrag mit 
spitzem Bleistift und unter heftigen 
Zungenbewegungen ermittelte, So 
war denn zumindest für ihn das 
Weihnachtsfest gesichert, ich dage- 
gen erklomm mit meiner Informa- 
tionslast die heimischen Treppen 
und fing, kaum wieder zu Atem ge- 
kommen, damit an, mein Wissen 
über Drucker zu vervollkommnen. 

Ein rascher Blick in die schon 
leicht schwindsüchtige Brieftasche 
erleichterte den Entscheidungspro- 
zeß erheblich, schon nach relativ 
kurzer Zeitstand fest, daßeinSchön- 
schreibdrucker nicht in Frage kam. 
Was blieb, waren die einfachen Ma- 
trixdrucker, darunter auch der MPS 
801 von Commodore, der geradeals 
»Neuheit« auf dem deutschen Markt 
erschienen war. 

Mit den Informationenüberdtreiin 
Frage kommende Drucker im Geist 
und in der Hand, begab ich mich 
nun auf die Suche nach einem Com- 
putershop, um das theoretisch erar- 
beitete Wissen praktisch zu über- 
prüfen. Dieses Unterfangen stellt in 
einem computertechnischen Ent- 
wicklungsland, das diese unsere 
Republik nun einmal ist, ein größe- 
res Problem dar, zumal in einer 
Kleinstadt wie Hamburg. Da Com- 
puterläden grundsätzlich mehrere 
Kilometer vom nächsten freien Park- 
platz entfernt liegen — eigene Park- 
plätze lohnen sich wohl nicht, da die 
Kunden zum größten Teil Jugendli- 
chesind — ergab sich die einmalige 
Gelegenheit, etliche Pfunde, die 
sich in mitternächtlichen Sitzungen 


nn run 


SO) 


am Computer angestaut hatten, wie- 
der abzulaufen. 

Endlich war der erste Laden er- 
reicht, also raus mit dem bereits im 
Geiste geübten Satz: »Ich wollte mir 
mal Drucker für den C 64 angucken 
und ...« 

Ungläubiges Staunen beim Ver- 
käufer: »Drucker? Ham wir nich da, 
sind aber bestellt.« 

Daraufungläubiges Staunen beim 
Kunden, $Aha«) gefolgt vom ra- 
schen Ortswechsel. Schauplatz des 
nächsten Dramas ist die Computer- 
abteilung eines großen Kaufhauses. 
Inmitten einiger Taschenrechner fri- 
stet ein einsamer Homecomputer 
sein Dasein, von fachkundigem Per- 
sonal vor kaufwütigen Kunden be- 
schützt: »Das ist unser Letzter, den 
können wir nicht rausgeben.. — 
aber wir haben schon neue be- 
stellt.« 

Also rein ins Gewühl. «Ham se 
mal’n Moment Zeit? Ich wollt mir 
Drucker für...« 

»Karl, kommste mal, da will einer 
'nen Drucker kaufen.« — »Drucker? 
Ham wir nich, sind aber...« 

Man soll ja die Hoffnung nie aufge- 
ben, also weitergemacht mit der 
Stadtrundfahrt. Und tatsächlich, im 
siebten oder achten Laden ge- 
schieht das Wunder: »Drucker? Hat- 
ten wir bestellt, sind gerade gekom- 
men. Was darf's denn sein% 

Ehrfurchtsvoll bestaunt der ent- 
zückte Kunde die sauber aufgereih- 
te Menge der Drucker: Beide ne- 
beneinander. 

Der Ladenschluß ist schon be- 
drohlich nahe, also wildentschlos- 
sen zugeschlagen. »Was kostet denn 
bei Euch der GP 500 und was der 
MPS 801% — »Hä? Das ist doch ein 
und dasselbe Gerät, nurmitneman- 
deren Gehäuse...« 

Aha, das stand in keiner der gele- 
senen Zeitungen. Mißtrauisch ge- 
worden, kommt die nächste Frage: 
»Der sieht aber innen drin dem GP 
100 verdammt ähnlich..« 

»Isjaauch das Nachfolgemodell, lei- 


ser, mit verbessertem Schriftbild 
und nem ganz neuen Farbbandsy- 
stem...« 

Naja, lange Rede, gar kein Sinn, es 

Naja, lange Rede, garkein Sinn, es 
gibt viel zu drucken, packen wir's 
das im Autohandel. Zurück zum ei- 
genen Fahrzeug, unter einem Ärm 
den Karton Papier, unter dem ande- 
ren den Drucker. Nach kurzer Dis- 
kussion mit einer netten Politesse, 
die gerade dabei ist, die Scheiben- 
wischerfestlich zuschmücken, kann 
endlich die Heimfahrt durch den 
Dschungel des Feierabendver- 
kehrs angetreten werden. 

Zuhause angekommen, wird erst- 
mal ausgepackt und die Betriebsan- 
leitung studiert. Dabei kristallisiert 
sich immer klarer das erste Druck- 
vorhaben heraus: Eine deutsche 
Fassung des Heftchens muß her. Da 
der durchschnittliche Mitteleuropä- 
er neben seiner Muttersprache und 
diversen Computerdialekten auch 
noch umfassende Kenntnisse des 
Englischen besitzt, fällt es nicht 
schwer zu erraten, was mit den Än- 
weisungen des Handbuches ge- 
meint ist. 

Schließlich sind Papier und Farb- 
bandkassette eingelegt, der erste 
Versuch kann starten. Schalter auf 
»Test« und ab dafür. Und siehe da, 
der Verkäufer hat nicht gelogen, 
der Drucker ist vergleichsweise lei- 
se. Statt mit den Phonzahlen eines 
startenden Jumbos säuselt der 
Druckkopf mit Diskothekenniveau 
über das Papier. 

Da wenigstens das Schriftbild den 
Versprechungen entspricht, kann 
der Test abgeschlossen werden, 
der Drucker wird jetzt mitdem Com- 
puter verbunden. Dies geschieht 
mittels des beigelegten Buskabels, 
das die stattliche Länge von 60 cm 
aufweist. Man kann sich also aussu- 
chen, ob einem die Nadeln von links 
oder rechts ins Ohr knattern... Nun 
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Früher oder später kommt im Leben eines Computerbesit 





ja, so wird man wenigstens zu einem 
kompakten Aufbau der Computer- 
anlage gezwungen, es bleibt sogar 
noch Platzaufdem Tisch für Aschen- 
becher und eine Flasche des von 
ortsansäßigen Brauereien geliefer- 
ten Kühlmittels. 

Nun lassen wir in Gedanken zwei 
Monate verstreichen, wir befinden 
uns im Januar des Jahres 1984. Nach 
150 bis’ 200 Blatt Papier wird das 
Farbband allmählich schwächer, 
ein frisches muß her. Halt, da war 





en, 


ganze Spaß inklusive der Spritko- 
sten weit über enax aber im- 


doch was? Ach ja, im Handbuch v. 
steht was von austauschbarem In- | 


ker. Das muß das Ding sein, wo die 
Tinte drin ist. Da das Farbband. 
selbst noch gut ist, tuts 2 auch 
eine Austauschkartus 





beschließt, seinen ( Gerätepark um den lange 
fäligen Drucker zu erweitern. 


ers der Tag, an dem er 


les ist umgekehrt propotional zu sei- 
ner Aufallhäufigkeit. 

3. Die Erhältlichkeit eines Bauteiles 
ist umgekehrt proportional zu seiner 
Wichtigkeit und 

4. was schiefgehen kann, geht auch 
schief. 

Das Melodram mit dem sattsam 
bekannten Titel »Stadtrundfahrt« 
wurde also wieder einmal auf den 
Spielplan gesetzt, brachte aber 
diesmal ein völlig anderes Einspiel- 
ergebnis: Nicht ein einziges Mal fiel 
die Bemerkung »Ham wir nich, sind 
aber bestellt...« Stattdessen Schul- 
terzucken in den Kaufhäusern und 
Ratlosigkeit in den Fachgeschäften. 
„Bestellen wir, dauert aber minde- 
stens sechs Wochen, wenn nich län- 


ger...“ 

Zum Überlaufen wurde das Faß 
dann von einem Servicetechniker 
gebracht (Firmenwerbung: »Eige- 
ner Services): »Ich hab gerade eine 
Feder bestellt, Der Drucker da hin- 
ten hat den gleichen Fehler. Da muß 
ich wohl noch'n paar Federn nach- 
bestellen...« — Der drohende Herz- 
infarkt ob solcher fachkundigen Äu- 
ßerung muß schon deutlich zu er- 
kennen gewesen sein, denn noch 
bevor ich die Gelegenheit fand, 
mich dazu zu äußern, wurde ich aus 
der »Werkstatt« herauskomplimen- 
tiert: »Keine Kunden in der Werk- 
statt... Mein streßgeplagtes Ausse- 
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hen muß dann bei meinen Arbeits- 
kollegen Mitleid erweckt haben, 
denn nach etlichen Stunden der Su- 
che in Grabbelkisten und Schubla- 
den, fandsich das Material, ausdem 
man eine entpsrechende Federher- 
stellen konnte. Mit viel Mühe wurde 
eine Feder gebogen und eingebaut, 
schließlich kam doch noch das Er- 
folgserlebnis: Zehn Tage war der 
Drucker krank, jetzt druckt er wie- 
der, Gottseidank... Mitnichten. 


Kein Frust 


Durch das Drucken mit stehen- 
demFarbband, war diesesdocharg 
in Mitleidenschaft gezogen worden. 
Es verhakte sich ständig, wodurch 
die Vorteile des Kassettensystems 
erst deutlich wurden. Statt mühsa- 
mer Fummelei genügt ein Griff und 
man hat die Kassette in der Hand 
und kann das Band wieder ordent- 
lich einspulen. Wahrscheinlich hat 
man gerade dieses Vorteils wegen 
die Kassette eingeführt. 

Es folgte der vorläufig letzte Akt 
des Dramas, eine Variation des The- 
mas »Farbbandkauf«. Die Beschrei- 
bung des kurzen Einkaufsbummels 
erspare ich mir, irgendwie und ir- 
gendwann bekam ich schließlich ei- 
ne neue Kassette, Hoffnungsfroh 
wurde selbige in den Drucker ge- 
legt und dieser eingeschaltet. Bei 
dieser Gelegenheit stellte sich her- 
aus, daß die Farbbandkassetten of- 
fenbar eine größere Odysseehinter 
sich haben, wenn sie auf deutschen 
Ladentischen ankommen. Ein der- 
art blasses Schriftbild hatteich noch 
nicht einmal beim ersten Farbband, 
das bis zum letzten Tropfen im 
Drucker verblieben war... 

Die Umtauschaktion gestaltete 
sich kurz und schmerzlos, schon 
nach fünfzehn Minuten intensiver 
Fachsimpelei war man bereit, zuzu- 
geben, daß es möglicherweise tat- 
sächlich etwas schwach war und 
händigte mir ein anderes Band aus. 

Wer nun aus dem Berichteten den 
Schluß zieht, daß ich mit dem 
Drucker MPS 801 unzufrieden bin, 
der irrt. Kinderkrankheiten sind da- 
zu da, überwunden zu werden, man 
kann keine Vorbeugungsmaßnah- 
men treffen, außer vielleicht schon 
mal etwas Baldrian für den Benutzer 
zu kaufen. Der MPS 801 bietet für 
sein Geld schon eine Menge Lei- 
stung, woran es mangelt, ist die Be- 
treuung durch den sogenannten 
Fachhandel. Hier kann und muß 
noch eine Menge verbessert wer- 


den. 
(Reinhard Schrutzki/gk) 
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synthesizer? Er benutzt das 

Verfahren der Phonemsynthe- 
se, wobei wir schon wieder bei der 
nächsten Frage sind: Was ist Pho- 
nemsynthese? 

Mit diesem Verfahren ist es mög- 
lich, jedes beliebige Wort synthe- 
tisch wiederzugeben. »Phoneme« 
sind die vom Sprachsynthesizer er- 
zeugten Laute, die sehr wenig Spei- 
cherplatz benötigen. Der SDP 120 
benutzt 64 Phoneme (Einschließlich 
unhörbarer Steuercodes.) Daß es 
zwischen gesprochenen und ge- 
schriebenen Worten große Unter- 
schiede gibt, merkt man spätestens 
wenn man versucht, einfache Worte 
in Phonemschreibweise zu erstel- 
len. 

Das Wort »Datei« wird aus den 5 
Phonemend-al-t-a-yzusammen- 
gesetzt. Bei »Diskette« wird die 
Schreibweise schon etwas schwieri- 
ger:d-il-ss-k-ael-t-ael. AmTitel 
dieser Zeitschrift hat man allerdings 
schon ganz schön zu kauen. Für 
»ö4’er« benötigt man folgende 14 
Phoneme: f-il-r-ul-n-d-ss-ael- 
ch-t-ss-il-g-ael-r. 


W ie arbeitet nun dieser Sprach- 
































Es taucht sicherlich bei 
einigen der Wunsch 
auf, ihrem 

Commodore 64 das 
Sprechen beizubringen. 
Wir haben mit 

den SDP 120 eine 
hardwaremäßige 
Lösung getestet. 


Welche Vorteile hat nun diese Art 
der Spracherzeugung? Der wohl 
größte Vorteil liegt im minimalen 
Speicherbedarf eines Wortes. Da 
ein Phonem durch jeweils ein Byte 
dargestellt wird, benötigt man für 
das Wort »Datei« nur 5 Byte. Ein wei- 
terer Vorteil liegt darin, daß der 
Sprachsynthesizer jedes beliebige 
Wort oder jeden beliebigen Satz sa- 
gen kann, da er janichtan einen be- 
stimmten Wortschatz gebunden ist. 
Das Phonem-erfahren bringt je- 
doch nicht nur Vorteile, sondern 
birgt auch einige Nachteile. Vokale 
und einige Konsonanten können von 
Sprachsynthesizer recht gut nach- 


Ausgabe 8/ August 1984 





Hardware-Test 








geahmt werden, während einige 
synthetische Konsonanten kaum 
wiederzuerkennen sind. Darunter 
leidet natürlich die Verständlichkeit 
des Systems. _ 

Vom Hersteller erhält man ein 
sorgfälltig geschriebenes 28seitiges 
Handbuch, das neben technischen 
Einzelheiten und der Schaltungen 
einschließlich Platinenbestückun- 
gen, den Umgang mit dem Gerät 
erklärt und Hinweise gibt, wie man 
bei der Programmierung von Wor- 
ten vorgehen soll. Esistauch eineLLi- 
ste von 250 aussprachemäßig defi- 
ee deutschen Wörtern beige- 

üct, 

Das Herzstück des Sprachsynthe- 
sizers ist der Baustein SC-O1A. Die- 
ser Baustein besitzt einen Vorrat von 
64 Lauten (=Phoneme), wovon drei 
Steuercodes sind (zwei Pausen und 
l Stop- Code). Die Phoneme können 
jeweils in vier sogenannten Beto- 
nungsstufen erzeugt werden, was 
bei den Steuerlauten natürlich be- 
deutungslos ist. Beiden Vokalen be- 
wirkt das Setzen der Betonungsstu- 
fen ein starkes Anheben der Stimm- 
lage, aber keine Erhöhung der Am- 


Ausgabe 8/August 1984 





plitude, wasrecht unnatürlich klingt. 
Bei den stimmhaften Konsonanten 
bewirkt das Setzen einer Betonung 
ebenfalls ein Anheben der Tonlage, 
was aber für die Betonung von Kon- 
sonanten im Deutschen ungeeignet 
ist. Eine Zunahme der Lautstärke er- 
folgt nicht, und so bleiben Akzente 
auf stimmlosen Konsonanten gänz- 
lich ohne Wirkung. Im Deutschen 
werden aber Konsonanten ebenso 
wie die Vokale betont, wasdurchein 
Anhebung der Lautstärke und ge- 
gebenfalls eine leicht Anhebung 
der Stimmlage erfolgen sollte. In vie- 
len Fällen kann die Betonung von Sil- 
ben durch Verlängerung der in ih- 
zen enthaltenen Vokalen erzielt wer- 
en. 

Mit den 64 Phonemen und den Be- 
tonungsstufen kommt man auf 4 mal 
64 = 256 Codes, das entspricht ge- 
nau einem Byte oder einem 8Bitlan- 
gen Datenwort. Dies ist für eine 
preisgünstige Konstruktion und für 
die einfache Programmierung vor- 
teilhaft, vom Gesichtspunkt der 
Spracherzeugung her aber nur ein 

inimum. Wünschenswert wäre ei- 
ne mehrfach größere Anzahl von 


Grundlauten. Ähnlich verhält es 
sich bei den Betonungsstufen, die 
einen Kompromiß darstellen zwi- 
schen Vergrößerung der Amplitude 
(eigentliche Betonung) und der Än- 
hebung der Stimmfrequenz. Da im 
Deutschen die resultierende Anhe- 
bung der Stimmfrequenzzu groß ist, 
führt dies zu unnatürlichen klingen- 
den Anhebungen der Sprachmelo- 
die. Besser wäre eine getrennte 
Steuerbarkeit von Amplitude und 
Stimmfrequenz. 

Der Sprachsynthesizer wird an 
User-Port angeschloßen und kann 
somit von allen CBM- Geräten (CBM 
2001 bis C 64) angesteuert werden. 
Das Design des Gerätes ist sehr ein- 
fach. An der Frontseite befinden 
sich der Ein/Aus-Schalter und zwei 
Drehregler um die Frequenz und 
Lautstärke zu ändern (siehe Bild). 

Wie kann man nun die Sprachaus- 
gabe im eigenen Programm ver- 
wenden? Dies ist etwas aufwendig. 
Zuerst muß man mit Hilfe eines vom 
Hersteller mitgelieferten Pro- 
gramms den benötigten Wortschatz 
definieren. Dieser wird dann als se- 
auentielles File auf Diskette gespei- 
chert und kann vom eigenen Pro- 
gramm aus mit Hilfe eines zirka 
40zeiligen Unterprogramms aufge- 
rufen werden. 

Der Sprachsynthesizer SDP 120 ist 
zum Preis von 487 Mark von Speech 
Design erhältlich. 


Fazit: 

Der Sprachsynthesizer SDP 120 
findet sowohl als nette Spielerei für 
Hobbyprogrammier als auch in pro- 
fessionellen Programmen seine An- 


wendungsgebiete. 
Gesamtüberblick: 
Verständlichkeit »qut 
Programmierung : umständlich 
Dokumentation sehr gut 
Sprachbeispiele »sehr gut 
Gesamtnote : gut- 
befriedigend 

(Christian Quirin Spitzner/rg) 

Bezugadresse: 


Speech Design, Altostraße 11, 8000 München 60 
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unächst ein paar Worte zur Ge- 

schichte: Entstanden ist das 

1541-Laufwerk aus dem CBM 
2031-Laufwerk, das bis auf die 
Schnittstelle identisch ist. Das 
2031-Laufwerk arbeitet mit dem pa- 
rallelen IEEE-488-Bus, während die 
1541-Floppy Daten seriell überträgt. 


scheinen des Commodore 64 erhielt 
es einen neuen Namen und durch 
ein neues Betriebssytem die Fähig- 
keit, sowohl mit dem VC 20 als auch 
mit dem © 64 zusammenarbeiten zu 
können. Die Änderung des Be- 
triebssystems wurde wegen der un- 
terschiedlichen Datenlesege- 
schwindigkeit der beiden Compu- 
ter durchgeführt (tatsächlich ist der 
VG 20 schneller als der C 64). Mei- 
nen Erfahrungen nach funktioniert 
das 1541 am VC 20 aber auch ohne 
Umstellung (mit dem Befehl UI) 
einwandfrei. Übrigens: Wer noch 
ein 1540-Laufwerk hat’ und dieses 
umrüsten möchte, kann dies durch 
Auslesen eines 1541-ROMs und 
Brennen auf EPROMSs preisgünstig 
tun, ohne lange auf einen Umrüst- 
satz warten zu müssen, 

Damit die gängigen EPROM- 
Typen (zum Beispiel der 2764) ver- 
wendet werden können, ist es aller- 
dings notwendig, einige Pins umzu- 






PA Nam 


Mit steigenden Umsatzzahlen des 

Commodore 64 gewann auch das dazugehörige 
Diskettenlaufwerk ständig an Popularität 

und verdrängte die Datasette. Wie es aufgebaut ist 
und welche Möglichkeiten die Hardware 


bietet, zeigt dieser Bericht. 


wird meines Wissens nach von Ka- 
ra (siehe Expansions-Heft 7) ge- 
iefert. 


Einfaches Umrüsten des 
1540 


Die Erweiterung des Betriebssy- 
tems war allerdingsnicht.die einzige 
Veränderung, die seit dem Erschei- 
nen des 1541 vorgenommen wurde. 
Die bis Weihnachten 1983 ausgelie- 
ferten 1541 funktionierten bei ange- 
schlossenem 1526-Drucker beim 
Arbeiten mit relativen Dateien nicht 
einwandfrei, da diese Version eine 
Handshake-Leitung nicht überprüf- 
te, Die Änderung des Betriebssy- 
stems des Druckers konnte daran 
natürlich nichts verbessern. Die 
nach Weihnachten 1983 verkauften 
Laufwerke haben meiner Erfahrung 
nach keinen Fehler mehr in ihrem 
DOS (Disk Operating System). 


Das 1541 ist eigentlich 
ein Computer 


Damit habe ich schon auf eine Be- 








sonderheit des 1541- BAUSNER hin- 
| ' Busses übernimmt und der anders N 































gerät. Intelligent deswegen, weil im 
Laufwerk ein eigener Prozessor mit 
oben erwähntem eigenen Betriebs- 
system seine Arbeit leistet. Die VC 
1541-Floppy wird deshalb mit Recht 
als eigener Computer bezeichnet. 
Neben dem 6502-Prozessor als CPU 
(Bild 1, Pfeil B)sorgen noch eine Rei- 
he anderen Bausteine für den Da- 
tenaustausch mit dem Computer. 

Das sind im wesentlichen zwei 6922 

Input/Output-Bausteine, von denen 

einer die Verwaltung des seriellen 






s  fürdie korrekte Motor- Schre 


leiten. Ein solches Zwischenstück nanntes »in 







I Das 16 KByte große Betriebssytem il 
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arreitttt 


ist in drei eigenen Bausteinen unter- 
gebracht. Zusätzlich stehen noch 
vier 2114-Bausteine mit insgesamt 2 
KByte Rulferspeicher zur Verfü- 
gung. 

Eigentlich eine ganze Menge, das 
für den relativ günstigen Preis gebo- 
‚ten wird, Wie sieht es aber mit den 
Leistungen des Laufwerks im tägli- 
chen Betrieb aus? 


Igel oder Hase? 


| Wer von der Datasette auf die ve 
|! BL Si ul sicher- 
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LOHN ACkeHt den Diskettenbefeh- 
len und der ‚Auswahlmöglichkeit 


des Directory begeistert sein. Wer 


aber, wie ich, schon mit anderen 


"Computern und ‚deren Laufwerken 


gearbeitet hat, ist von der relativ 
langsamen Datenübertragung ent- 
tauscht, In Zahlen ausgedrückt, be- 
trägt die  Datenübertragungsge- 
schwindigkeit 0,4 KByte pro Sekun- 
de (im Vergleich: Die CBM 2031 


‚überträgt mit 18 KByte pro Sekun- 


de). ‚Außerdem ist die VO 1841- 


"Floppy, jedenfalls die, die ich hatte, 
sehr störanfällig, ‚Die bei längerem 
Betrieb (bei mir nach einem Monat) 
al - auftretenden Fehlermachensich zu- 
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nächst in immer häufigeren Lese- 
fehlen und Blinken der Kontrollam- 
pe bemerkbar. Später wird es dann 
unmöglich, noch einzelne Disketten 
zu lesen, außer sie wurden gerade 
formatiert. Dies sind typische Anzei- 
chen einer Dejustierung des 
Schreib-/Lesekopfes. 

Da diese Fehler bei meinem Lauf- 
werk, auch nach Reparatur durch 
den Fachhandel, innerhalb kürze- 
ster Zeit wieder auftraten, waresan 


.. der Zeit, dem Problem auf die Spur 


zu kommen. Mit einem Disk-Monitor 
versuchte ich, bei meinem defekten 
Laufwerk eine frisch formatierte 
Diskette zu lesen. Das funktionierte 
auch auf allen Spuren einwandfrei, 
außer auf Spur 1. Die ausgegebene 
Fehlermeldung deutete auf eine 
fehlerhafte Formatierung hin. Da 
Spur l aber die äußerste aufderDis- 
kette ist, schloß ich daraus, ‚daß der 
Schreib/Lesekopf die Position der 
Spur 1 nicht mehr exakt erreichen 
konnte. Mittlerweise war die Garan- 
tie auf mein Laufwerk abgelaufen 
(die erste Reparatur dauerte zwei 


Monate), deshalb entschloß ich 


mich, das Laufwerk zu öffnen, 


Abhilfe bei Funktions- 


‚ störungen 





Achtung! Ziehen Sie bei 
allen Arbeiten an offenen 
elektrischen Geräten den 

Netzstecker 


Wer dies nachvollzieht, wird im In- 
neren die Platine mit dem. Disk- 
Controller, dem Netzteil und dem ei- 
gentlichen Laufwerk (das von Alps, 
einem japanischen Elektrogiganten 
kommt) finden. Zusammengehalten 
werden die Einzelteile in einem Rah- 
men aus Preßblech. Nimmt man die 
Platine (bitte vorsichtig) ab, wird der 
Blick auf den Schreib-/Lesekopf 
(Bild 2, Pfeil F) und dessen Antrieb 
frei. Dieser Antrieb ist es aber, der 
meist für die Lesefehler verantwort- 
lich ist. Die Funktionsweise ist 


tr 
EEHEIENH 


kan OR 


VG 541 








schnell erklärt: Ein Steppermotor 
überträgt über seine Achse (Bild 2, 
Pfeil E) die Bewegungsinformatio- 
nen auf ein Rad, auf dem eine seg- 
mentförmige Erhebung ist. Um die- 
ses Rad herum läuft ein Stahlband, 
das durch ein Zugrad auf Spannung 
gehalten wird. An dem Stahlband ist 
der Schreib-/Lesekopf befestigt 
und folgt somit den Bewegungen 
des Steppermotors. Beim sicherlich 
jedem Laufwerkbesitzer bekannten 
Klappern zu Beginn eines Forma- 
tiervorgangs justiert sich der 
Schreib-/Lesekopf, indem das auf 
dem Steppermotor angebrachte 
Rad mehrmals an einen Anschlag 
fährt. Dabei verschiebt sich im Lau- 
fe der Zeit das leider nur aufge- 
steckte Rad auf der Achse des Step- 
permotors. Daß der Schreib-/Lese- 
kopf sich danach nicht mehr justie- 
ren kann, ist einleuchtend. 


Thermische Probleme 


Verstärkt wird dieser Effekt noch 
durch die starke Erhitzung des Lauf- 
werks bei längerem Betrieb. Diese 
ist zum einen darauf zurückzufüh- 
ren, daß das Netzteil eingebaut ist, 
zum anderen entwickeln die beiden 
Spannungsregler (Bild 1, Pfeil C) 
Temperaturen über 50 Grad. Dies 
mag für die Elektronik ja noch ver- 
träglich sein, die Mechanik nimmt 
es übel. Dasich das Metall der Step- 
permotorachse und das des aufge- 
sprengten Rades bei diesen Tempe- 
raturen unterschiedlich ausdehnt, 
wird das Rad aufder Achse leichter 
verdrehbar. 

Welche Maßnahmen kann man 
aber treffen, um solche Verstellun- 
gen zu verhindern? Das Einfachste 
ist es, nach gründlicher Reinigung 
einen Tropfen Superkleber auf das 
Rad und die Achse zu geben. Dabei 
sollte man natürlich vorsichtig sein, 
damit nicht das Stahlbändchen ver- 
klebt. Eine andere, wesentlich ele- 
gantere Methode besteht darin, 
durch Achse und Rad ein Loch zu 
bohren und beide durch emen 
Splint zu sichern. Dazu ist natürlich 
die Demontage des Steppermotors 


PR Na 


notwendig. Deshalb sollte man die- 
se Arbeiten nur dann vomehmen, 
wenn Kenntnis und einwandfreies 
Werkzeug vorhanden ist. Mödli- 
cherweise erklärt sich auch Ihre 
Fachwerkstätte, gegen ein gewisses 
Entgelt, dazu bereit. Dort könnte 
dann die selbstverständlich notwen- 
dige Justage des Schreib-/Lesekop- 
fes vorgenommen werden. Sie kön- 
nen aber auch, mit etwas Geschick, 
die Justage mit einer auf einem ein- 
wandfreien Laufwerk formatierten 
(beziehungsweise einer Ihrereersten 
Disketten) vomehmen. Die Einstel- 
lung mittels Disk-Monitor wird dann 
zwar nicht l00prozentig, aber ein 
störungsfreies Schreiben und Lesen 
ist auf jeden Fall zu erreichen. 





Die zweite Fehlerursache beim 
1541 liegt im Antrieb der Disketten 
(Bild 2, Pfeil G). Durch Verwendung 
von schmutzigen beziehungsweise 
alten Disketten geht oft die Haftung 


Schmutz als 
Fehlerursache 


zwischen den Äntriebsrädern und 
der Diskettenscheibe verloren. Die 
Folge ist eine zu geringe Umdreh- 
ungsgeschwindigkeit der Diskette 
(wenn sie sich überhaupt dreht), die 
meist mit wildem Blinken der Funk- 
tionsanzeige quittiert wird, Eine Ab- 





Ausgabe 8/August 1984 


VG 541 


Hardware 








hilfe schafft da nur die gründliche 
Reinigung des Andruckkopfes und 
des Antriebsrades mit Alkohol. Bei 
dieser Gelegenheit können Sie auch 
vorsichtig den Schreib/Lesekopf 
mit einem Wattestäbchen säubern. 
Es ist empfehlenswert, die beiden 
Laufschienen des Schreib-/Lese- 
kopfes ganz leicht (auch mit Watte- 
stäbchen) einzuölen. Das Laufwerk 
wird dann leiser und zuverlässiger. 

Sollten Ihnen die eben genannten 
Maßnahmen allerdings zu aufwen- 
dig vorkommen, ist es aufaalle Fälle 
ratsam, für eine bessere Kühlung 
des Laufwerks zu sorgen. Dies ist 


entweder durch Einbau eines fla-: 


chen Lüfters oder durch vollständi- 
ges Entfernen der Lüftungsschlitze 





Bild 2. Das 
»eigentliche« Laufwerk 
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im Gehäusedeckel möglich. Ver- 
meiden Sie auf jeden Fall das For- 
matieren von Disketten, wenn das 
Laufwerk heiß ist. 


Hardwareumstellung der 
Geräteadresse 


Eine oft gestellte Frage ist auch 
die nach der hardwaremäßigen 
Umstellung der Geräteadresse. Die 
im Handbuch beschriebenen Teile 
sind nämlich auf der ganzen Platine 
nicht zu finden, weil das Floppy- 
Handbuch noch die alte, etwas grö- 
ßere und anders aufgebaute Platine 
beschreibt. Insgesamt gibt es drei 
verschiedene Platinen. In Bild 1 
zeigt Pfeil A auf zwei Lötbrücken in 
der Form von zwei durch einen Steg 
verbundenen Halbkreisen. Durch 
Zertrennen der vorderen dieser 
beiden Lötbrücken läßt sich die Ge- 
rätenummer fest auf 9 einstellen. Ist 
es aber notwendig, das Laufwerk 
wechselweise mit 8oder 9zu betrei- 
ben, besteht die Möglichkeit, auf 
beide Halbkreise der vorderen Löt- 
brücke einen Draht zu führen und 
diesen mit einem Schalter zu verbin- 
den. Nach Drücken des Schalters 
und Durchführen eines Resets stellt 
sich die neue Nummer automatisch 
ein. Der Schalter wird am besten an 
der Rückseite des Gehäusedeckels 
befestigt. Bei älteren (weißen) Dis- 
kettenlaufwerken befinden sich die 
beiden Lötbrücken übrigens nicht 
im vorderen Drittel der Platine, son- 
dem, von vorme gesehen, hinten 
links. Auch hier wird wieder die vor- 
dere der beiden Leiterbahnen 
durchtrennt, um die Geräteadresse 
9 einzustellen. 


Die Überbrückung des 
Schreibschutzes 


Daß es beim 1541-Laufwerk mög- 
lich ist, auch einseitige Disketten 
(durch Herausschneiden eines 








































zweiten Schreibschutzloches) und 
hardsektororientierte Disketten 
beidseitig zu verwenden, ist mittler- 
weile sicherlich bekannt. Daß es 
aber auch möglich ist, ohne diese 
Schnippelei Disketten auf der Rück- 
seite zu bespielen, ist die nächste 
Erweiterung, die uns das 1541-Lauf- 
werk bietet. Auch hier ist das Prinzip 
desSchreibschutzesschnell erklärt, 
denn eine einfache Lichtschranke 
prüft, ob sich eine Diskette mit oder 
ohne Schreibschutzim Laufwerk be- 
findet. Dies hat mich vor langer Zeit 
mal eine Diskette gekostet, da ich 
aus Sparsamkeitsgründen durch- 
sichtigen Tesafilm als Schreibschutz 
verwendet hatte. 

Nun aber zum notwendigen Um- 
bau. Auf der Platine befinden sich 
aufderlinken Seite die Steckverbin- 
dungen für Laufwerkssteuerung, 
Datenübertragung und eine Leucht- 
diode. Diese Steckplätze sind auf 
der Platine mit »p« und einer Num- 
mer bezeichnet. Der für uns wichti- 
ge Steckplatz ist der mit der Be- 
zeichnung P6. Die ersten beiden Ka- 
bel haben die Farben Orange und 
Lila. Lötet man zwischen diese bei- 
den Kabel ebenfalls einen Schalter, 
so ist es möglich, Disketten von der 
Rückseite zu bespielen, ohne eine 
Einkerbung für den Schreibschutz 
machen zu müssen. Es ist empfeh- 
lenswert, einen Kippschalter zu ver- 
wenden, damit optisch erkennbar 
ist, ob der Schreibschutz aktiviert ist 
oder nicht. Zum Wechseln der Dis- 
ketten ist der Schalter übrigens wie- 
der in Normalstellung zu bringen, 
da bei geschlossenem Schreib- 
schutzschalter ein Diskettenwechsel 
vom Laufwerk »nicht bemerkt« wird. 
Einige Nachteile dieser Arbeiten 
am Laufwerk sollten allerdings nicht 
verschwiegen werden: Durch Off- 
nen des Gerätes verlieren Sie jeden 
Garantieanspruch. Teile, die Sie bei 
Arbeiten an der 1541 zerstören (zum 
Beispiel durch statische Entladung 
oder zu heißen Lötkolben) werden 
Ihnen von keinem Händler ersetzt. 
Und achten Sie natürlich auf Ihre Si- 
cherheit, indem Sie den Netzstecker 
ziehen und weglegen. 

(Arnd Wängler) 
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Bild 8. Modell AK 300 


Automodem (Bild ]): 

Das Automodem ist ein Selbstbau- 
modem, das allerdings keine FTZ- 
Prüfnummerbesitzt. Dieser Apparat 
wird zwischen Telefon und Akustik- 
koppler geschaltet. Es unterschei- 
det Computer von »normalen« Änru- 
fern und kann auch als Wählautomat 
eingesetzt werden. 

Minimodem 3005 (Bild 2): 

Beidem Minimodem fallen beson- 
ders die vier Leuchtdioden ins Au- 
ge. Neben der Diode, die die Be- 
triebsbereitschaft anzeigt, und der 
Diode, die ein empfangenes 
Carrier-Signal bestätigt, sind die 
zwei anderen besonders interes- 
sant. Diese zeigen an, ob der Aku- 
stikkoppler Signale empfängt oder 
sendet. Durch diese Anzeigen wird 
ein Fehler in der Übertragungleich- 
ter lokalisierbar. 

Epson CX-21 (Bild 3): 

Der Epson Akustikkoppler ist 
wohleiner der verbreitesten Geräte. 
Er ist vor allem durch seine Zuver- 
lässigkeit bekannt. 

Tandy (ohne Bild): 

Dieser Akustikkoppler ist der 
preiswerteste unserer Übersicht. Er 
soll nach der Meinung einiger Be- 
nutzer allerdings nicht die Zuverläs- 
sigkeit des Epson-Kopplers errei- 
chen. 

CDI ACK 300 (Bild 4): 

Der ACK 300 sendet und emp- 
fängt mit 300 Baud im Voll-Duplex 
Betrieb. 

CDI ACK 1200 (wie Bild 4): 

Der ACK 1200 arbeitet mit 1200 

Baud im Halb-Duplex Betrieb. 
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Das Angebot 
an Modems und 
.Akustikkopplern wächst fast wöchentlich. 
Einen Überb Ik über die angebotenen Geräte 
soll unsere Marktübersicht, die keinen Anspruch 
auf Vollständigkeit erhebt, ermöglichen. 











Bild 4. Modell ACK 300/300 
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CDI AM 1200/300 (wie Bild 4): 

Dieses Gerät dient nur zum Sen- 
den. Die Übertragungsgeschwin- 
digkeit kann zwischen 300 und 1200 
Baud gewählt werden. 


CDI ACK 1200/75 (wie Bild 4): 
Dieser Koppler sendet mit 1200 

Baud und empfängt mit 75 Baud im 

Voll-Duplex-Betrieb. 


CDI ACK 75/1200 (wie Bild 4): 

Dieser Akustikkoppler sendet mit 
75 Baud und empfängt mit 1200 Baud 
im Voll-Duplex Betrieb. Als Beson- 
derheit dieses Gerätes ist die BTX- 
Zulassung zu erwähnen. 


Comco CK 211 (ohne Bild): 

Dieser Akustikkoppler arbeitet 
mit 300 Baud im Halb- oder Voll- 
Duplex-Betrieb. 


Comco CK 311 (ohne Bild): 

Dieses Modell hat zusätzlich zu 
dem CK 2ll noch den Originate/ 
Answer Mode, besitzt aber keine 
FTZ-Nummer. 


Comco CK 2300 (ohne Bild): 

Bei diesem Gerät handelt es sich 
um ein tragbares Terminal. Inte- 
griert ist der CK 211. 


WS 2000 (Bild 5): 

Das Weltstandard 2300 Modem 
hat keine FTZ-Nummer. Es bietet 
vielfältige Möglichkeiten, die sich 
jeder »Hacker« wünschen würde. 
Doch durch das Veto der Bundes- 
post dürfen diese nicht genutzt wer- 
den. 


PR1 (Bilder 6 und 7): 

Bei dem PR] Akustikkoppler han- 
delt es sich um ein Gerät, das mit 
Originate/Answer Mode arbeitet. 
Auch dieses Gerät besitzt keine 
FTZ-Nummer. 


AK 300 (Bild 8): 

Bei diesem Akustikkoppler han- 
delt es sich um eines der neuesten 
Geräte mit FTZ-Nummer auf dem 
deutschen Markt. Der Koppler soll, 

nach Angaben der Hersteller, 
| über dieselben Vorzüge wie der 

Epson CX-21 verfügen. Preislich 

liegt dieses Gerät jedoch einiges 

unter dem Epson-Koppler. Ein aus- 


'führlicher Testbericht wird sich in 
| einem der nächsten Ausgaben an- 


schließen. 


| Das Bundespost-Modem 


(ohne Bild): 

Dieses Modem ist ausschließlich 
als Mietgerät über die 
Bundespost erhältlich. 
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enn Sie einen VC 20 oder ei- 
W nen C 64 besitzen, dann haben 

Sie sich bestimmt schon öfter 
Gedanken darüber gemacht, das 
äußere Erscheinungsbild Ihres Sy- 
stems zu verbessern. Baut man die 
Geräte einmal so auf, wie vom Her- 
steller geplant und steckt diverse 
Erweiterungsplatinen dazu, dann 
entsteht auf dem Arbeitstisch ein 
recht unschöner Verhau von Leitun- 
gen. Abgesehen von dem dafür nöti- 
gen Platz, ein unbefriedigender Zu- 
stand. 

Viele Verbesserungsvorschläge 
gehen dahin, nur den Computer auf 
dem Tisch zu belassen und den Rest 
so zu verstecken, daß er nicht stört. 
Den Weg, den ich zur Lösung des 
Problems beschritten habe, unter- 
scheidet sich von diesen Vorschlä- 
gen wesentlich. Meine Absicht ist 







an 
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es, zwar alles auf dem Tisch zu las- 
sen, dieses aber so kompakt aufzu- 
bauen, daß es kaum noch Platzpro- 
bleme gibt. 

Die Idee dafür lieferten die »Ur- 
väter« der Büro-Computer, wie zum 
Beispiel der Pet oder seine Nachifol- 
ger. Warum sollte man den C 64 
nicht in eines dieser Gehäuse ein- 
bauen? Eine praktische Lösung, die 
zudem noch einige weitere Vorteile 


Vom Pet gelernt 


bietet: Aufeiner Standfläche von zir- 
ka 50 mal 45 Zentimetern bringt man 
den Computer, den Bildschirm, das 
Floppy-Laufwerk und die Stromver- 
sorgung unter. Dabeiistimmernoch 
genug Platz, um ein zweites Lauf- 
werk und verschiedene Erweiterun- 








gen einzubauen. Soviel zum Platz, 
weitere Vorteile sind: Man hat nur 
noch ein Kabel zur Steckdose und 
eventuell noch eines zum Drucker. 
Zusätzlich macht das ganze dann 
noch einen wesentlich solideren 
Eindruck. Commodore selbst hat 
auch aufder Hannover Messe '83 ei- 
nen 4064 für zirka 1500 Mark vorge- 
stellt, allerdings ohne eingebaute 
Laufwerke und mit einem mono- 
chromen Bildschirm. Dieser findet 
hauptsächlich in einigen Schulen 
seine Änwendung. 

Aber nun zur Praxis. Wie kann 
man sich diesen »Super C 64« bau- 
en? Nun, einfach den Computer und 
das Laufwerk, mit allem was dazu- 
gehört, in ein Commodore-Gehäuse 
der 30/40XXer Serie einbauen, 
Bildschirm draufmontieren und fer- 
tig. Halt, ganz so einfach ist es auch 
wieder nicht, deshalb vorab eine 
Warnung: Wer eine Bohrmaschine 
für ein hochtechnisches Gerät und 
einen Lötkolben für eine südländi- 
sche Fruchthält, sollte entweder die 
Finger davon lassen oder einen 
Bastler zu Rate ziehen. Äber auch 
für den professionellen Platinenkle- 
ber ist der Arbeitsaufwand nicht zu 
unterschätzen. Für den Prototyp ha- 
be ich sieben Tage gebraucht, mitt- 
lerweile schaffeichesauchschonin 
zweibis drei Tagen, (jenachdem, ob 
ich auf das Schlafen verzichte oder 
nicht). 

Sollten Sie jetzt aber immer noch 
den notwendigen Mut zum Umbau 
haben, dann willkommen in der 
Welt der Commodore 4064-Besitzer. 
Dazu vorab eine Liste derunbedingt 
notwendigen Materialien und 
Werkzeuge. 


Teileliste: 
— Ein Gehäuse der CBM 30/40XXer 
Serie mit einer mindestens 5,5 cm 
hohen Frontplatte (sonst kann man 
meines Wissens kein Laufwerk ein- 
bauen). 

— Einen Netztransformator mit vier 
Sekundärwicklungen (2x9 V und 
2x15 V). Der Originaltrafo der 
30/40XXer Serie ist sehr gut geeig- 
net, man muß lediglich zwei Drähte, 
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ınders aber für 





es Sprichwort sagt: »Kleider machen Leute«. 
Er re Maße dei das auch für Computer. Ganz 
| en Commodore 64, dessen 
fähi keit in keinem Verhältnis zu seinem 
| Erscheinungsbild steht. Wie man diesem 


er ei raffinierte Weise abhelfen kann, zeigt 






die Fee RR, gelötet sind, tren- 
nen. Selbeyersändlich ist es mög- 






Er en W Se ee 
a und ist nur halb so groß. 
List zu prüfen, ob die Versor- 

ungen zusammenge- 
f fen, da Ringkern- 
trafos klungen haben. 


— Diverse Aluminium Proscie 











a nahe a 
Man kann a auch, wie Bild 2 
zZ eine andere Plazierung der 
Platinen wählen. 


Damit ist gleic 
Punkt angespr ch 











h ein wichtiger 
en. Brenn] Bau des 





bereitetman mit Flachbandkabelei- 
nen Modulsteckplatz am hinteren 
Ende des Gerätes vor. 

I re nicht, hier einen 
ulegen, aus dem jeder 
nderiftn mit Zeichnungen abzule- 
sen ist. Dazu bräuchte ich wahr- 
inlich das ganze 64’er Heft. Ich 
nur die Reihenfolge der Arbeits- 
schritte aufzeigen und zu jedem Ab- 
schnitt u grundsätzliche Hin 
weise geben, die vor Schäden und 
Zeitverlust bewahren. Denn die 
möglichen Fehlersind zahlreich und 
man muß ja nicht alle nachmachen. 

Der erste Arbeitsschrii tt ist einfach 
— wenn er auch in der Seele 





















schmerzt. L 
werk werd 
entblößt 









N au: 


bekommen haben, sorateich I 
zwei Dinge: 
1. Ziehen Sie den Netzstecker! 
2. Bauen Sie ee 






gebaut 
Sie dabei eine! 


| es: 
C 64 wird 





ikeiseben Sehe. | 
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Fall ecke Ich he Ihnen f a 
gende Arbeiten am Laufwerk: Zie- 








hen Sie. pioshnie 













:Kabeldes 
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en n Sie alle euer 








Res Loch in das Blech zu schneiden. 
Die Befestigungsschrauben im 
Chassis des 30/40XXer passen er- 
staunlich genau (zu amerikanischen 
Schrauben, deshalb mit M4 nach- 
schneiden). Auch unter der Front- 
platte ist alles für die Aufnahme 
zweier Laufwerke vorbereitet, die 
leider etwas kleiner gewesen sein 
mußten. Deshalb wird es notwen- 
dig, etwas zu feilen (zirka 2 Stunden). 
Die Befestigung des Laufwerks im 
Chassis ist am einfachsten mit vier 
Winkelblechen zu bewerkstelligen. 
Da man nicht gut bei geöffnetem 
Deckel mit Werkzeug hantieren 
kann, ist eszu empfehlen, das Lauf- 
werk in geeigneter Schräglage in 
den Blechkasten zu montieren und 
den Kasten dann erst an den Deckel 
zu hängen. Wichtig ist dabei, das 
Laufwerkgehäusenichtmechanisch 
zu belasten. Die Führung für die Dis- 
kette könnte sonst zu eng werden. 
Der Blechkasten darf also den 
schwarzen Kunststoff am Chassis 
nicht eng umschließen. Achten Sie 


Hier sind ae jr rg 


Floppy-Platine 





Bild 1. Die erste Einbaumöglichkeit der Platine 


auch darauf, daß keine bewegli- 
chen Teile irgendwo schleifen oder 
scheuern. 

Jetzt aber zu den Platinen. Ich ha- 
be Wert darauf gelegt, an diesen 
nichts zu verändern. Deshalb wur- 
den alle Anschlüsse über Stecker 
vorgenommen. Bei meiner Platinen- 
anordnung mußte ich lediglich die 
seriellen Verbindungen mittels 
zweier Winkelstecker herstellen, da 
sonst das Gehäuse nicht mehr zuge- 
gangen wäre. 

Der Zusammenbau geht relativ 
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einfach und schnell, Die Hauptplati- 
ne wird mit den Äbstandbolzen und 
der Pappe auf dem Boden des 
Chassis befestigt. Darüber kommt 
die Platine für das Laufwerk, das zu- 
sätzlich noch mit drei Schrauben an 


Hier war Schlitze u N 





Bild 2. Die zweite Einbaumöglichkeit der Platine 


der rechten Gehäuseseite aufeiner 
Aluminiumschiene befestigt ist. Die 
andereSeite der Floppyplatine wird 
ebenfalls auf eine Aluminiumschie- 
ne geschraubt. Auf dieser findet 
später auch der Kühlkörper Platz, 
der unbedingt notwendig ist, denn 
es entstehen bei längerem Betrieb 
doch erhebliche Wärmemengen 


durch die beiden Regler. 
Der Trafo wird am besten in der 
linken hinteren Ecke festge- 


schraubt, denn zum einen sind dort 
die Halterungen für den Originaltra- 
found zumanderen ist dortnoch am 
meisten Platz. Der Trafo wird grund- 
sätzlich so montiert, daß die Sekun- 
därklemmen sichtbar bleiben und 
das Hauptmagnetfeld nicht zum Mo- 
nitor zeigt. Wer es ganz genau 
nimmt, kann den Trafo auch noch 
mit einem Blech abschirmen, unbe- 
dingt notwendig ist das aber nicht. 
Gut ist es, die Leitungen auf 
Schraubklemmen oder Lötleisten zu 
legen. Auch kann noch eine 220-Volt- 
Leitung für den Monitor und even- 
tuell einen Lüftermotor mit vorberei- 
tet werden. 

Die Stromversorgung für den 
Computer (5 Volt) erhalten wir am 
einfachsten mit einem Festspan- 
nungsregler, der an die Gehäuse- 
rückseite geschraubt wird. Ach- 
tung! Unbedingt vorher ausmessen, 


denn eine zu hohe Spannung kann 
das vorzeitige Ende aller Bemühun- 
gen bedeuten. Beschriften Sie auch 
alle Leitungen und verdrillen Sie 
diese, damit es keine Verwechslun- 
gen und Störfelder gibt. 

Ob Sie nun den Monitor nur auf 
das Gehäuse aufstellen oder fest 
verschrauben bleibfihnen überlas- 
sen. Beieinem festen Änbau istaber 
darauf zu achten, daß dieser nicht 
endgültig ist, denn auch Monitore 
haben nur eine begrenzte Lebens- 
dauer. 

Eigentlich fehlen jetztnurnoch die 
Betriebsspannungslampen und die 
Resetleitung, die man sinnvollerwei- 
se auch gleich einbaut. Moment, 
eheiches vergesse: Die Tastatur ha- 
ben Sie hoffentlich schon eingebaut. 
Dazu muß eine kleine Ecke vom Ge- 
häuse vorsichtig weggefeilt werden. 
Jetzt haben Sie sich aber einen Pro- 
belauf verdient, vor dem Sie am be- 
sten nochmals alle Spannungen 
nachmessen und die Platinen von al- 
lem Staub und Spänen befreien. 

Sollte alles funktionieren (hoffent- 
lich), dann können Sie sich an die 
Gehäusekosmetik heranmachen. 
Dazu gehört das paßgenaue Feilen 
der Frontplatte und das Änbringen 
der besonders wichtigen Typenbe- 
zeichnung »4064«. Achten Sie in den 
ersten Wochen besonders auf die 
Temperaturentwicklung im Gehäu- 
seinneren. Sollten Sie dabei zarte 
Rauchwolken aufsteigen sehen, 
empfehle ich Ihnen einen zusätzli- 
chen Lüfter einzubauen. 

Sollten Sie die Absicht haben, das 
Ganze auf sich zu nehmen, so kann 
ich, wenn nötig, CBM-Gehäuse mit 
Trafo in begrenzter Anzahl beschaf- 
fen. Es sollten aber auch bei ver- 
schiedenen Firmen, die die 30/ 
40XXer-Platinen für andere Zwecke 
verwendet haben, noch solche Ge- 
häuse erhältlich sein. 

Die nächste Erweiterung meines 
4064 ist eine Sicherung gegen 
Stromausfälle, so daß der Speicher- 
inhalt etwa 10 bis 20 Minuten ohne 
Netz gehalten wird. 

Übrigens ist es mir mit meinem 
4064 mehrmals gelungen, selbst Be- 
sitzer größerer Computer, die dem 
Commodore 64 sonst nie einen Blick 
schenken würden, zu verblüffen: Sie 
hielten den 4064 für eine revolutio- 
näre Neuentwicklung von Commo- 
dore. (H.Schröder/A.Wängler/gk) 
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Anbieter 


ja Tandy 

Fachhandel 

A-Epson ja 148,— Epson 
ja 


1187,12 cDI Informationssystem® 
Tauentzienst. 1 
1000 Berlin 30 
030/ 246015 
A-ACK1200 7200 ja 1818,30 cDI Informationssystem® 
siehe oben 
A-ACKT5/ 1200 ja 2046,30 cDI Informationssystem®@ 
siehe oben 
2046,30 cDI Informationssystem® 
siehe oben 
AM-ACK1200/ 300 ja 444,60 cDI Informationssystem® 
siehe oben 
M-Automoderm nein e Selbstbau, Anleitung im näch- 
sten Heft 
M-W52000 nein 700,— Minor Miracles, GB 
Kontaktadresse: 
ACT Computer 
Schützenstt. 
4000 Düsseldorf 1 
o211/ 350188 
A-PR! nein 350,— KEN. Electronics 
Kontaktadress® 
ACT Computer 
siehe oben 
B-AK300 ja 550,— Software Express 
Hugo Vichoffstr. 84 
000 Düsseldorf 30 
0211/ 424323 
M-Post Modem ja 80, Bundespost _ Monatsmiete® ei 
300 Baud) 
19,90 Bundespost _ Monatsmiete 
A-CK2ll ja 1694,— Comko Computersyste Gesell- 
schaft mbH. 
Marsdorfer Str. 76 
5000 Köln 40 
0221/ 483051 
A.CK31l nein 2120,— Comko Computersyster 
siehe oben 
m.CK2300 ja 5525,— Comko Gomputersystem 
siehe oben 


Mini Modem 3005 ja 790,— Modular Technology 
4000 Düsseldorf 1 


B-ACK300/ 300 


5 


A-ACK1200 115 







A= Akustikkopple! (Anschluß über 

M= Modem (Anschluß direkt ans Telefonnetz) 

= Terminal (Computel, Treibersoftwar® und Aku ixkoppler in einer Einheit) 
AM = Akustik-Muff (wie j pler, aber nur zum Senden) 
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C 64 





RESET 





Ohne Sicherheitskopie ist das Arbeiten mit dem C 64 
eine riskante Sache. Zu oft stürzt ein Programm 
in der Entwieklungsphase ab. Also vor einem RUN 


immer abspeichern? 


Abspeichern, besonders wenn 

nur mehrere kleine Änderungen 
vorgenommen werden müssen die 
Programmierarbeit sehr. Deshalb 
wäre es sicher wünschenswert am 
C 64 einen RESET-Knopf zu haben, 
wie er bei anderen Computern vor- 
zufinden ist. Wichtig ist dabei natür- 
lich, daß durch Betätigen dieses 
Knopfes der Speicherbereich nicht 


L= verzögert dieses häufige 





User Port Kassette 


total gelöscht wird, sondern ledig- 
lich wieder für eine neue Befehls- 
aufnahme bereit ist. 

Da die beiden im Handbuch auf- 
geführten Möglichkeiten, den Com- 
puter wieder in einen aufnahme- 
bereiten Zustand zu versetzen 
(RUN/STOP+RESTORE oder SYS 
64738) oft zu keinem Resultat mehr 
führen, kann diesem Problem nur 
durch eine kleine Hardware- 
Erweiterung gelöst werden. 

Das Prinzip dieses Schalters be- 
ruht auf einer Verbindung der 


na a.) 


Seriello 
Schnitt- 
stelle 


Bild 1. Verschiedene RESET-Schalter 





Morni- TV 
tor 


RESET-Leitung des Prozessors (Pin 
40) mit Masse (zum Beispiel Pin 2]). 
Zur Realisierung dieser Verbindung 
bieten sich mehrere Ansatzpunkte 
an, die im folgenden beschrieben 
werden sollen: 
1. RESET-Knopf am User-Port 

Die an dieser Stelle nach außen 
geführte Platine des C 64 (User-Port) 
stellt an Leitung 1 GND (Masse) und 
an Leitung 3 RESET zur Verfügung. 
Durch Aufsetzen eines User-Port 
Steckers (zum Beispiel TRW 
251-12-50-170 50-24SN-9) besteht nun 


die Möglichkeit, zwischen Leitung 1 
und Leitung 3 einen Schalter dazwi- 
schen zu löten. Der Schalter sollte 
dabei ein Druckkontaktschalter 
seinund nach dem Löten durch eini- 
ge Tropfen Schnellkleber fixiert 
werden (siehe Bild 1). Der Nachteil 
dieser Lösung besteht darin, daß 
zum einen der User-Port nicht mehr 
für andere Zwecke genutzt werden 
kann (zum Beispiel RS232..), zum an- 
deren sind die Kosten für einen 
User-Port Stecker relativ hoch (zirka 
12 Mark). 
2. RESET-Knopf am seriellen Bus 

Auch der serielle Bus (zum Bei- 
spiel Buchse 2 am Floppy) bietet die 
beiden Leitungen GND und RESET 
(Bild 2). Diese befinden sich an den 





Stiften 2 (GND) und 6 (RESET). Als 
Stecker wird lediglich ein ganz ge- 
wöhnlicher sechspoliger DIN-Stek- 
ker, den es für wenige Mark in je- 
dem Elektrogeschäft gibt, benötigt. 
Dort sollte man auch den weiterhin 
notwendigen MiniTaster bekom- 
men können. Dieser MiniTaster 
wird nun auf die beiden Stifte 2 und 
6 gelötet, sodaß der Tastknopf oben 
aus dem Stecker herausragt (even- 
tuell aufschneiden). Den ganzen 
Stecker braucht man dann nur noch 
auf den seriellen Bus aufstecken um 
einen preiswerten RESET-Knopf zu 
haben. 
3. RESET-Knopf fest eingebaut 

Die dritte Möglichkeit einen 
RESET-Knopf zu installieren, besteht 
darin, ihn fest in das Gehäuse des C 
64 einzubauen. Dazu ist es notwen- 
dig, den Computer zu öffnen, die Ta- 
statur auszustecken und die Platine 
auszubauen. Auf der Unterseite der 
Platine befinden sich die Lötkontak- 
te des seriellen Busses. An dieser 
links und oben Mitte) über einen 
Druckschalter zu verbinden. Der 
links und oben mitte) über einen 
Druckschalter zu verbinden. Der 
Schalter selbst kann beispielsweise 
an der linken Geräteseite in einem 
SeHatnen Loch Bild 4 befestigt wer- 

en. 
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Der Einbau des Schalters in den 
Computer ist allerdings dem Profi 
vorbehalten, da bei falschem Zu- 
sammenlöten der Kontakte, bezie- 
hungsweise bei zu starker Erhitzung 
der Platine, der Computer ernstlich 
beschädigt werden kann. Ferner ist 
zu bedenken, daß mit diesem Ein- 
griff jeder Garantieanspruch verlo- 
ren geht. 

Hat man sich für einen der drei 
Wege entschieden und ihn reali- 
siert, so wird man feststellen, daß 
nach dem kurzzeitigen Drücken der 
RESETTaste das Programm ver- 
schwunden ist.:Der Computer mel- 
det sich nach einem RUN oder LIST 
Befehl mit einem freundlichen REA- 
DY. Der Speicher scheint gelöscht 
zu sein. Das dies nicht so ist, sieht 
man durch den Einsatz eines Moni- 
tors. Betrachtet man sich den Basic- 
Programmstart, so wird man feststel- 
len, daß das alte Programm noch 
vorhanden ist und nur die ersten 
drei Byte mit Nullen überschrieben 
wurden. Diese Nullen sagen dem 
Betriebssystem, daß hier das Pro- 
gramm zu Ende ist (genau wie nach 
einem NEW-Befehl). Um das Pro- 





gramm wieder lauffähig zu machen, 
müssen nur diese drei ersten Byte 
rekonstruiert werden. 

Der Inhalt des ersten Byte ist im- 
mer Null, die beiden Folgebyte stel- 
len einen Zeiger auf den Beginn der 
nächsten Basiczeile im Format Low- 
Byte, High-Byte dar. Diese beiden 
Byte werden mit der Adresse der 
nächsten Basiczeile gefüllt. Das Pro- 
gramm wird dann wieder lauffähig 
sein. 

Die Rekonstruktion der Adresse 
der nächsten Basiczeile kann mit ei- 
nem Monitor geschehen, indem das 
nächste Nullbyte im Speicher sucht 


und die darauf folgende Adresse in 
die beiden obigen Speicherzellen 
schreibt. Ein weitaus besseres Ver- 
fahren ist der Einsatz eines Pro- 
grammes, das diese Ärbeit für uns 
erledigt. Das beigefügte Programm 
OLD (siehe Listing 1) berechnet die 
gesuchte Adresse und schreibt sie 
in den Speicher. Damit wird der RE- 
SET beziehungsweise ein NEW auf- 
gehoben und das Programm ist wie- 
der vorhanden. 


aber durch POKE 56,124 gegen 
überschreiben schützen. 

Der Vorteil der ersten Möglichkeit 
besteht darin, daß man das OLD- 
Programm jederzeit laden und mit 
SYS 828 aufrufen kann, allerdings 
benötigt man einen Monitor. Die 
zweite Möglichkeit ist zwar einfach 
einzugeben, zerstört aber, hat man 
vergessen das Programm vorher zu 
laden, das zu rettende Basicpro- 
gramm. 


Bild 4. RESET-Schalter 
im Gehäuse des C 64 





Es empfiehlt sich das Programm 
zunächst abzuspeichern und dann 
mit der Fehlersuche zu beginnen. 
Benötigt wird das OLD-Programm 
natürlich nur bei Basicprogrammen, 
ein vor dem RESET im Speicher be- 
findliches Maschinenprogramm ist 
sofort wieder mit SYS startbar. 

Das OLD-Programm selbst kann 
aufmehrere Arten geladen werden. 


Bild 2. RESET-Taster im Schnittstellenstecker 


Zum einen besteht die Möglichkeit, 
es mit einem Monitor im Kassetten- 
puffer (falls frei) abzulegen und als 
Maschinenprogramm abzuspei- 
cher. Zum anderen kann es mit ei- 
nem Basic-Lader (Listing 2) eingege- 
ben werden. In diesem Fall wird das 
Programm ab $C000 abgelegt, da 
der Kassettenpuffer bei einem RE- 
SET ebenfalls gelöscht wird. Das 
Programm muß nun jeweils einmal 
nach Inbetriebnahme des Compu- 
ters geladen und gestartet werden. 
Im Fall des Falles kann man es dann 
mit SYS 49152 aufrufen. Beilängeren 
Basicprogrammen sollte man es 





Selbstverständlich arbeitet das 
OLD-Programm auch ohne die RE- 
SET- Taste, zum Beispielnach einem 
irrtümlichen NEW-Befehl und stellt 
somit eine Basic-Erweiterung dar, 
die nicht nur in Verbindung mit der 
RESET - Taste ihre Anwendung fin- 
det. (A. Wängler/rg) 


0 datal65,43,164,44,133,34,132,35,160,3,200,177,34,208,251,200,152,24,101 
1 data34, 160, 205 145, 43, 165, 35, 105, , 200, 145, 43, 136, 162, 3% 230, 34,208,2, 230 
2 data35, 177, 34 ‚208, 244, 202 ‚208, 243, 165, 34, ‚105, 25 133, 45, 165, 35, 105,0,133 


3 data46,96 


10 forx=49152t049211:reada:pokex,a:next 


ready. 
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Listing 2. Basic-Lader des OLD-Programms 
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's kann durchaus sinnvoll sein 
m bestimmte Programme daue: 


haft auf EPROMs zu speichern. 
Zur Programmierung der EPROMs\ 


ist es notwendig, ein sogenanntes V 
EPROM-Programmiergerät, auch 
EPROM-Brenner genannt, einzuset- 
zen. 

Als Besitzer eines Commodore 64 
hat man bereits einen Computer, 
der zur Steuerung der Programmie- 
rung eingesetzt werden kann. Älles 
was zusätzlich gebraucht wird, ist 
die entsprechende Treibersoftware 
und eine Platine, die für die notwen- 
dige Programmierspannung und 
die Aufnahme der EPROMS sorgt. 
Natürlich sollte es auch möglich 
sein, auf verschiedene EPROM- 
Typen umzuschalten. Alle diese 
Aufgaben übernehmen diezum Test 
angetretenen EPROM-Brenner. 


Die Testkandidaten 


Das Feld der Testkandidaten be- 
stand aus sieben Geräten. Zwei da- 
von zum speziellen Einsatz am VC 
20, zweinur für den Commodore 64. 
Der Rest konnte an beiden Geräten 
wahlweise betrieben werden. Die 
Hersteller der beiden VC 20-Mo- 
delle waren Kalawsky und Weber 
Computertechnik. Die Modelle nur 
für den C 64 kamen von Kalawsky 
und von Bockstaller. Die übrigen 
Testteilnehmer kamen von Roßmül- 
ler und je zwei Geräte von Jeschke 
und Völzke. Wenn Sienunmitgezählt 
haben, werden Sie feststellen, daß 
wir eigentlich neun Testkandidaten 
hatten. Da aber die Geräte von 
Jeschke und Völzke identisch sind, 
entfiel die Doppelzählung. Wichtig- 
stes Bewertungskriterium war das 
Spektrum der programmierbaren 
EPROMs. Daneben wurden aber 
auch die Zuverlässigkeit, die Quali- 
tät und die Handhabung der Platine 
im Normalbetrieb bewertet. Zusätz- 
lich flossen natürlich Sonderfunktio- 
nen wie zum Beispiel die Abschalt- 
barkeit desBrennerssoodereinRe- 
setschalter mit in die Bewertungein. 
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Bei der dazugehörigen Treiber- 
software wurde vor allem auf den 
Nutzen und die Funktionalität der 
Programmierbefehle geachtet. 


Der Testablauf 


We ee a 

Einem Modell einer futuristischen 
Stadt nicht unähnlich, präsentierte 
sich der EPROM-Brenner von Roß- 
müller. Zum Betrieb am User-Port 
vorgesehen ist die Platine (in tief 
dunklem Lötschutzlack) mit drei 
Schaltern und einer Resettaste aus- 
gestattet. Der kleinste der Schalter 
dient der Umschaltung der Pro- 
grammierspannung von 21 auf 25 
Volt, damit auch ältere Typen des 
2732 EPROMs »geschossen« wer- 
den können. Der größte der Schal- 
ter (sage und schreibe 5 cm hoch) 
dient der Umschaltung zwischen 
den verschiedenen EPROM-Typen. 


Einer für alle 

Diese etwas unkonventionelle Lö- 
sung erwies sich im Test als sehr 
praktikabel, zumal die dazugehö- 
rende Software die Bedienung des 
Schalters unterstützt. Sehr ange- 
nehm fielen auch die Abschaltbar- 
keit der gesamten Platine (Schalter 
3) und der durchgeführte User-Port 
auf. Das Programmiergerät braucht 
























somit nicht entferntzu werden, wenn 
es nicht benutzt wird. Der Aufnah- 
mesockel für die EPROMs von Tex- 
tool dürfte der wohl beste derzeitzur 
Verfügung stehende Sockel sein. 

Gespannt waren wir, ob der positi- 
ve Eindruck, den die Platine mach- 
te, auch bei der Treibersoftware er- 
halten bleiben würde. Keine Frage, 
wie sich schon bald herausstellte. 
Der Aufbau der Treibersoftware ist 
ansprechend in Form von Menüs ge- 
löst worden. Das erste Menü erwar- 
tet die Eingabe des zu programmie- 
renden EPROM-Typs (natürlich al- 
les auf Tastendruck). Die dort aufge- 
führte Liste der programmierbaren 
EPROMs war beeindruckend und 
ließ keine Wünsche offen. Es kön- 
nen alle Typen von 1 KByte bis 32 
KByte »geschossen« werden. 

Nach der Wahl des EPROM-Typs 
erscheint das eigentliche Hauptme- 
nü. Die »normalen« Befehle wie Pro- 
grammieren, Vergleichen, Lesen, 
Leertest und Rückkehr in das Ty- 
penwahlmenü brauchen kaum er- 
klärt werden, sie funktionieren lo- 
gisch und einfach. Besonderes Au- 
genmerk sollte aber den Befehlen 
»M«zum Verschieben von Speicher- 
bereichen, »L« zum Laden von Kas- 
sette oder Diskette und »S« zum Spei- 
chern auf Kassette/Diskette ge- 
schenkt werden. Da der betreffen- 
de Speicherbereich dabei frei ge- 
wählt werden kann, stellen die Be- 
fehle eine sehr nützliche Hilfe dar. 

Wünschenswert wäre allerdings 
noch die Möglichkeit, einen Hex- 
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Hardware-Test 





Was leisten die Geräte, mit denen der C 64 zum EPROM-Programmiergerät wird? 


Dump des betreffenden Speicher- 
bereichs (zum Ansehen und Än- 





dem) aufrufen zu können. 

Der EPROM 64 von Roßmüller 
kommt ohne zusätzliches Netzteil 
aus. Im praktischen Betrieb konnten 
wir keinen Nachteil an dieser Lö- 
sung finden. Erhältlich ist der 
EPROM 64 für zirka 200 Mark als 
Fertiggerät und für zirka 100 Mark 
als Aufbauplatine für den Bastler. 


Das Schmuckstück 


Silbrig glänzend, fast wie ein 
Schmuckstück, präsentierte sich 








seinen Preis? Unser Tes 





Eigenas Netmeil Nein Nein ” Nein Nun ”» 
Bus aurcagetähnt » Nein Nein Neun Nein »” Nein 
Hesuchaker ) Nein x en » » Nein » 
2508 x x x x x x 
2 x x x x x 
ars x x x x x x 
& Sn x x x x x x x 
zu x x x x 
ars x x x x 


AT mm 
Leertest x x x x x x x 
——n——— m 
EPROM lesen x x x x x x x 
Propammiıea x x x x x x 
EPROM Typ wa 
2 ken x x x x 
Weschensn 
werschieben x x 
Hezdumn x 
ä re 
E Tellernseige x x x x 
vergeichen x x x x 
Bepessturkt x x x 
Assmazsche 
Bechnerkerung X on a x 
Preix Putin 
»- M- Im E02 ur u =, m 













Diese Tabelle 
Hersteller Roßrmiler Velskn/jeschee Lalsweiry Weber Bockmaller zeigt gete- 
Merkmal EFROM Ei va Mod. 128 EPROM- EPROM- Corpuen die 
ENOM MON mchn steten EPROM- 
——————— LU 
far Computenyp ch swicn CcHicH c“ vn vo ch Brenner in ei- 
Arachiuß an User-Port UserPon Userfort Expamafor Erafon Expfon Laer: ner verglei- 
Software aut Zus /Diek  Easn/Dik Ks /Disik EPROM EPROM EPROM Kase/Diek chenden Über- 
Auch als sicht 
———————— 
a TE er RE 













derEPROM-King von Kalawsky. Der 
Realisierungsweg, der von dieser 
Firma beschritten wurde, unter- 
scheidetsich von demalleranderen 
Kandidaten. Der EPROM-King wird 
nicht am User-Port, sondem am 
Expansion-Port in Betrieb genom- 
men. Damit ist der Vorteil verbun- 
den, einem Modul mit Treibersoft- 
ware direkt in die auf der Platine 
vorhandene User-Port-Buchse ein- 
stecken zu können. Wird es aber 
vorgezogen, die Software von Kas- 
sette oder Diskette zu laden, kann 
hier ein Modul mit beliebiger Soft- 
ware eingesteckt werden. Bei der 
Stromversorgung findet sich die 





Wo liegen die Leistungsunterschiede und welches Gerät bietet am meisten für 
gibt Antwort auf diese Fragen. 


nächste Besonderheit dieses Ge- 
räts: Es wird von einem externen 
Netzteil mit der notwendigen Ver- 
sorgungsspannung beliefert. Auf 
der Platine selber sind der (leider 
nicht optimale) Stecksockel, ein Re- 
setschalter und eine Reihe von nütz- 
lichen LEDs angeordnet. Das fal- 
sche Einstecken des EPROMs wird 
durchdie Lichtsignale der LEDs fast 
unmöglich gemacht. 

Auchbeider Treibersoftware und 
der Anleitung wurde sehr darauf 
geachtet, jeden Anwenderfehler 
möglichst zu verhindern. Der sehr 
gute optische Eindruck der Softwa- 
re (viel Farbe, strukturierte Menüs) 
wurde sogarnoch durch Tonsignale 
aufgewertet. Richtig durchgeführte 
Operationen werden durch einen 
hellen Ton, Fehler mit einem tiefen 
signalisiert. Auch beim EPROM- 
King ist das erste Menü der Wahl 
des EPROM-Typs vorbehalten. Hat 
mansich für einen der vielen Typen 
(1 KByte bis 16 KByte) entschieden, 
erscheint das Hauptmenü mit sei- 
nen umfangreichen Befehlen. Die 
Standardfunktionen sind natürlich 
auch hier vorhanden, werden aber 
durch Lade- und Speicherbefehle 
ergänzt. Das Einlesen des Directory 
ist dabei, ohne das Programm zu 
verlassen, möglich, Erfreulich ist 
der sinnvolle Einsatz der Funktions- 
tasten. Schade, daß kein Maschinen- 
sprachemonitor eingebaut ist, denn 
sonst wäre die Treibersoftware als 
uneingeschränkt vorbildlich zu be- 
zeichnen. 

Der EPROM-King wird als Fertig- 
gerät für zirka 245 Mark inklusive 
Netzteil und Software geliefert. 

Die Version des EPROM-King für 
den VG 20 unterscheidet sich zwar 
äußerlich, von den gebotenen Lei- 
stungskriterien aber kaum, von der 
Version für den C 64. Lediglich auf 
das Netzteil wurde verzichtet und 
ein leider noch schlechterer Steck- 
sockel für die EPROMs eingebaut. 
Die Treibersoftware ist für beide 
Geräte gleich komfortabel. 

Nun warenschon zweiKandidaten 
aufdem Weg zum Testsieg. Uns wur- 
de langsam klar, daß es eine 
schwierige Entscheidung werden 
würde. Zuvor durften aber auch die 
restlichen Testkandidaten ihre Vor- 
züge beweisen, Ihnen voran die Mo- 
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delle V 64 und Mod. 128 von Jesch- 
ke/Völzke. Alle Typen finden ihren 
Anschluß am User-Port und können 
sowohl am VC 20 als auch am C© 64 
eingesetzt werden. Ein Ladepro- 
gramm sorgt dafür, daß die richtige 
Treibersoftware nachgeladen wird. 

Auch hier findet wieder der exzel- 
lente Textoolsockel Verwendung. 
Zusätzlich sind, die bei diesen Mo- 
dellen besonders wichtigen, Um- 


Gute Leistung, wenig 
Komfort 


schalter auf der Platine angebracht. 
Mit Ihnen kann derrichtige EPROM- 
Typ eingestellt werden. Hier liegt 
auch der Unterschied zwischen den 
Modellen V 64 und Mod. 128. Der 
EPROM-Brenner 128 kann alle 
EPROM-Typen neueren Datums (A, 
B, C) zwischen 1 KByte und 16 KByte 
programmieren. Beim Modell V 64 
as nur EPROMs bis 4 KByte mög- 
ch. 

Da die Auswahl des EPROM-Typs 
bereits durch Einstellen der Schal- 
ter auf der Platine vorgenommen 
werden muß, entfallen diese Punkte 
im Menü der Treibersoftware. Dort 
finden sich aber zwei interessante 
Befehle: Erstens besteht die Mög- 
lichkeit, einen bestimmten Spei- 
cherbereich im hexadezimalen For- 
mat zu betrachten und zweites kann 
eine Funktion beliebig oft wieder- 
holt werden. Da im Menü selber 
kein spezieller Punkt zum Laden 
oder Äbspeichern von Program- 
men besteht, kann mit dem 
Hexdump-Befehl kontrolliert wer- 
den, ob das richtige Programm in 
den Speicher geladen wurde. »Fehl- 
schüsse« von EPROMs sind deshalb 
bei sorgfältigem Arbeiten weniger 
wahrscheinlich. Verglichen mit den 
beiden Programmen der bisher ge- 
testeten Konkurrenten ist die Trei- 
bersoftware allerdings etwas ein- 
fach und optisch wenig anspre- 
chend. Beieinem Preis von zirka 249 
Mark für das große Modell und 179 
für das kleine sind die Leistungen 
dieser beiden Geräte etwas mager 
ausgefallen. 

Mit eigener Stromversorgung, 
aber ohne externes Netzteil? Kein 


Widerspruch, wenn man das Gerät 
von Bockstaller betrachtet. In einer 
Art Huckepackverfahren wurde die 
Platine mit einem eigenen Netzteil 
ausgestattet, das direkt hinter dem 
einfachen Stecksockel seinen Platz 
gefunden hat. Das Netzkabel muß 
natürlich trotzdem angeschlossen 
werden. Das bedeutet, daß (zwar 
mit Epoxyharz gesichert), 220 Volt 
auf der Platine sind. Ein unserer 
Meinung nach nicht sinnvolles Ver- 
fahren, zumaleinfester Sitz desrela- 
tivschweren Trafos zwar auf Monate 
hinaus garantiert werden kann, 
aber bei jahrelanger Beanspru- 
chung... wer weiß? Die Leistungen 
dieses Gerätes halten sich, wie die 
Vergleichstabelle zeigt, in beschei- 
denen Grenzen. 


Der Selbstversorger 


Auch die beigefügte Treibersoft- 
ware konnte weder von der Ausstat- 
tung noch der grafischen Darstel- 
lung mit den bisher getesteten kon- 
kurrieren. Die Auswahlpunkte des 
Menüs beschränkten sich auf die 
unverzichtbaren Standardfunktio- 
nen. Bei einem Preis von zirka 270 
Mark kann diesem Gerätleiderkein 
besonders gutes Preis/Leistungs- 
verhältnis bescheinigt werden. Au- 
Rerdem empfehlen wir, die Platine 
und die Anleitung (eine Seitel) noch- 
mals zu überarbeiten. 


Basicprogramme 
einfach gebrannt 


Das letzte zum Test angetretene 
Gerät von Weber Computertechnik 
ist zum Einsatz am VC 20 vorgese- 
hen. Die Platine ist sehr übersicht- 
lich aufgebaut und verfügtüber den 
mittlerweile bekannten Textool 
Sockel. Der Expansion Port des VC 
20 ist erfreulicherweise durchge- 
führt, so daß dieses zirka 190 Mark 
kostende Gerät im Normalbetrieb 
nicht entfemt zu werden braucht. 
Die eigentliche Besonderheit des 
EPROM-Brenners liegt in der Art 
seiner Treibersoftware. Sie ist in 
Form eines EPROMs auf der Platine 
eingesteckt und wird nach dem An- 
schalten lediglich über den SYS- 


_\nen von Softwa 
fügung. MitdemBasic-EPROM istes 


Befehl aufgerufen. Dasistabernicht 


\ der einzige Vorteil dieser Lösung: 


Es stehen zwei verschiedene Versio- 
e-EPROMs zur Ver- 


möglich, ein Basic-Programm in ei- 
nen EPROM zu brennen. Das Ma- 
schinensprache-EPROM erfüllt die 
gleiche Aufgabe mitreinen Maschi- 
nensprache-Programmen. 

Der Aufbau der Treibersoftware 
ist grafisch und inhaltlich sehr an- 
sprechend und benutzerfreundlich 
gestaltet worden. Es wird oft ver- 
langt, die gewünschte Funktion, falls 
sie einen Schaden verursachen 
könnte, nochmals zu bestätigen. 
Auch hier finden sich Befehle zum 
Verschieben von Speicherberei- 
chen und eine Monitorfunktion. Die 
vorliegende Version dieses 
EPROM-Brenners kann mit der 
Basic-Software vier KByte große 
Programme aufEPROM brennen. In 
der Maschinenspracheversion sind 
EPROMs von einem KByte bis acht 
KByte programmierbar. Ein ähnli- 
ches, mit erweiterten Funktionen 
(bis 32 KByte) ausgestattetes Pro- 
grammiergerät für den C 64, lag 
zum Test leider noch nicht vor, soll 
aber mittlerweile erhältlich sein. 

Die Entscheidung war nicht ein- 
fach. Zu verschieden sind die gebo- 
tenen Leistungen. An der Spitze des 
Testfeldes lagen, in einem Kopf-an- 
Kopf-Rennen, die beiden Geräte 
von Roßmüller und Kalawsky. Jeder 
mit seinen besonderen Vorzügen. 
Die Entscheidung fiel schließlich 
aufgrund der eingebauten Monitor- 
funktionen und der Fähigkeit, 32 
KByte EPROMs zu programmieren, 
zugunsten des Modells von Roßmül- 
ler aus. Mit sehr guten Leistungen 
und komfortabler Treibersoftware 
Platz zwei für den Kalawsky 
EPROM-King. Leicht fiel die Ent- 
scheidung für den dritten Platz, 

Obwohl die Software noch nicht 
voll befriedigen konnte, die Leistun- 
gen aber durchaus sehenswert 
sind, belegten die Modelle 128 von 
Jeschke/Völzke den dritten Platz. 
Bei den anderen Modellen wurde 
darauf verzichtet, eine weitere Plat- 
zierung vorzunehmen, weil jedes 
von Ihnen seine eigenen Vorteile be- 
sitzt, die bei der individuellen Kauf- 
entscheidung mehr oder weniger 
ins Gewicht fallen. Bleibt zu hoffen, 
daß dieser Artikel wieder einige C 
64/VC 20 Besitzer dazu angeregt 
hat, auch diese Anwendungsmög- 
lichkeit ihres Computers verstärkt 


auszunutzen. 
(Amd Wängler/gk) 


Ausgabe 8/August 1984 








6 6 4 Comal Bedeutung Befehlsform 
Schlüsselbefehle 
HI Kommentarzeile //(Kommentar) 
ABS ergibt den Äbsolutwert ABS(<numerischer Ausdruck>) 
einer Zahl 
AND logisches »und« <AÄusdruck> AND <AÄusdruck> 
APPEND Start und Ende eines OPEN(FILE)<filenum>, 
sequentiellen Files <filename >,APPEND 
ATN Ärcustangens (rad) ATN(<numerischer Äusdruck>) 
AUTO automatische Zeilen- (<Zeilenanfang >),(<Schritt- 
numerierung weite>) 
BASIC zurück in Basic-Modus BASIC 
CASE Mehrfachbedingung CASE <Kontrollausdruck>(OF) 
CAT Directory CAT(<Laufwerknummer>) 
CHAIN Laden und Starten von CHAIN<filename> 
Diskettenprogrammen 
CHR$ Characterstring CHR$(<numerischer Ausdruck >) 
CLOSE schließt Files CLOSE((FILE)< filenummer>) 
CLOSED Geltungsbereich von PROC <procname > ((Parameter)) 
Prozedur oder Funkti- (CLOSED) 
onsvariablen begrenzen FUNC < funcname >((Parameter)) 
(CLOSED) 
CON Programm fortsetzen CON 
cos Cosinus (rad) COS(<numerischer ÄAusdruck>) 
DATA Datazeilen DATA <Zahl>..... 
DEL löscht Zeilen DEL<Bereich> 
DELETE löscht File auf Disk DELETE <filename> 
DIM Dimensionieren eines DIM <string var>OF<max.char> 
Feldes DIM<string array>(<array index>) 
OF <max.char> 
DIM <arrayname >(<array index>) 
. . DIV Division <Divident>DIV <Divisor> 
Die Programmiersprache DO führe die folgenden DO <Befehl> 
7 Befehle aus 
l 2 Con fü de C 64 EDIT listet Programme ohne EDIT(<Bereich>) 
Zeileneinrückung 
soll eine HerQu erung ELIF ELSE IF ELIF<Ausdruck>THEN 
an Pascal, Modula-2, | zıse alternative Befehlein ELSE 
’ = ' IF-Konstrukten 
PL/I und C sein. END beendet Programm END 
ENDCASE beendet CASE-Konstrukt ENDCASE 
Betrachtet man den | zuoror beendet FOR-Konstrukt ENDFOR 
ENDFUNC beendet Funktion ENDFUNC(<function name>) 
Befehlsumfang und den | zxoır beendet IrKonsmikt ENDIF 
Ko di ENDPROC beendet Prozedur ENDPROC(<procname>) 
miort dieser | enpwane beendet WHILE-Konstrukt ENDWHILE 
.s . ENTER ein Programmsegment ENTER <filename> 
Sprache, so könnte dies von Diskette »mergen« 
EOD End Of Data flag EOD 
; zutreffen ® Auch der EOF End Of File flag EOF(<filenum>) 
ESC stop key pressed flag ESC TRAP ESC<type> 
Preis = eine ee EXEC führe eine Prozedur aus (EXEC)< DR Dreee 
parameter> 
iese Spra e WI EXP Exponent EXP(<numerischer Ausdruck>) 
umsonst abgegeben. FALSE vordefinieren: False 
Value = O0 
iele C 64-Besitzer werden beim u en ehae is een 
V Programmieren festgestellt ha- PRINT FILE <filenum> 
ben, daß das Commodore-Basic (‚<recnum>);<varlist> 
auf ihrem Computer nicht gerade READ FILE <filenum> 
ideal ist. In diesem Fall gibt es zwei (‚<recnum>):<varlist> 
Möglichkeiten. Entweder man kauft | Tabelle 1. Befehlsübersicht von Comal WRITE FILE<filenum> 
sich eine Basicerweiterung oder (‚<recnum>):<varlist> 
man sieht sich nach einer komforta- ne en 
bleren Programmiersprache um. In CLOSE (FILE) <ülenum >) 


zwischen werden für den © 64 eini- 


FOR beginnt FOR Schleife FOR<var>=<stat>TO<end> 
ge Sprachen angeboten. So auch (STEP) (DO) 
Comal. t Re FUNC beginnt Mehrzeilen- FUNK<name>((<params>)) 
Doch wo liegen bei dieser Spra- funktion (CLOSED) 
che die Vorteile und Unterschiede GOTO Sprungbefehl GOTO <label name> 
gegenüber Basic und den anderen | IF Beginn IF-Konstrukt IF<Bedingung>(THEN) 
Programmiersprachen? Zuerst wol- en RT IF<bedingung>THEN <Befehl> 
len wir den Befehlsumfang von Co- | IN lokalisiert String in <stringl >IN <string2> 
mal betrachten Sernge 
ee INPUT Eingabe von Tastatur INPUT(<promt>:)<varLIST> 
Comal verfügt über 69 Befehle ; 
; ; en oder File INPUT FILE (s.o.) 
(Tabelle l). Um die speziellen Mög- INT gibt die nächste ganze INT<numerischer Ausdruck> 
lichkeiten des C 64 zu nutzen, sind Zahl kleiner oder gleich 
KEY$ prüft Tastatur KEY$ 
Ausaabe 8/Auaust 1984 LABEL vergibt Namen an Zeilen- <label name> 
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diese Befehle um drei weitere Be- 
fehlsblöcke erweitert worden. Die- 
se Erweiterungen umfassen die 
Sprite, die HiRes- und die Turtle- 
Grafik sowie die Musik. Zwölf spe- 
zielle Befehle stehen für die Sprites 
zur Verfügung. Vergleichtmandiese 
Erweiterung mit der Programmier- 
sprache Logo, sostehen immernoch 
fünf zusätzliche Befehle zur Auswahl 
(Tabelle ]). Auch beiden HiRes-und 
Turtle-Grafik-Befehlen hat man ge- 
genüber Logo fünf zusätzliche Be- 
fehle (Tabelle 2). Die Befehle sind 
sehr leicht zu handhaben und prä- 
gen sich schnell ein. 


Nun zu der Schnelligkeit 


Comal ist mit einem »Three pass 
interpreter — run time compiler« 
ausgerüstet. Der erste »pass« setzt 
gleich beim Programmieren ein. Al- 
le Zeilen werden, sobald sie abge- 
schlossen worden sind, auf die Syn- 
tax überprüft. Dies ist ein extremer 
Vorteil gegenüber Basic, denn 57 
verschiedene Fehlermeldungen 
stehen Comal zur Verfügung. So ist 
ein Fehler leicht zu lokalisieren und 
eine langwierige Fehlersuche 
bleibt dem Programmierer erspart. 
Laut Hersteller sind Fehler drei bis 
zehn mal schneller zu beseitigen als 
in Basic. 

Im zweiten »pass« werden die Be- 
fehlsstrukturen auf Korrektheit 
überprüft und die Sprungadressen 
in Absolutadressen umgerechnet. 
Dieser Durchlauf wird durch RUN 
ausgelöst und nimmt normalerweise 
weniger als eine Sekunde in An- 
spruch. 





an bb... 


Comal 
Schlüsselbefehle 


Bedeutung 


definiert Länge 

eines Strings 

besetzt Variablen 

listet Programm 

lädt Programm von Disk 
Logarithmus von n 
ergibt REST der Division 
löscht Arbeitsspeicher 
logisches NEIN 

bewirkt nichts 

Teil von DIM- und CASE- 
Konstrukten 


öffnet ein File 

logisches ODER 

ergibt Zahl die einem 
Charakter entspricht 
entspricht bei CASE dem 
ELSE bei IF 

wählt Ausgabegerät 
übergibt einen String an 
den Kommandokanal der 
Disk 

ergibt den Inhalt einer 
Speicheradresse 

besetzt Speicheradresse 


schreibt auf Drucker, 
Bildschirm oder File 


Tabelle 1. Befehlsübersicht von Comal 
(Fortsetzung) 


startet Mehrzeilen Pro- 
zeduren 

wahlfreier Zugriff auf 
Disk-File 

Datas oder File lesen 


PROC 
RANDOM 


Parametervariable wird 
in einer Prozedur 
verwendet 

RENUM Renumber Programm 
REPEAT Beginn des REPEAT-Kon- 
struktes 

Datenzeiger auf ersten 
Data-Wert zurücksetzen 
Zufallszahl 


RESTORE 


Programmstart 
Programm auf Disk 
speichern 
Ausgabegerät wählen 
-] wenn negativ 

O wenn O 

+1 wenn positiv 

SIN Sinus (rad) 

gibt benötigten 
Speicherplatz an 
Quadratwurzel 

Status vom Disk-Kanal 
Angabe für die Schritt- 
weite in Schleifen 
Ende des Programms 
Sys startet Maschienen- 
programme 

Tabulator 

Tangens (rad) 

Teil des IF-Konstruktes 
To Endangabe für Schleifen 
Ausschalten des Stopkey 
Variable mit eins 
vorbesetzen 

Gerät definieren 


SELECT 
SGN 


SQOR 


Befehlsform 


LEN(<string Ausdr. >) Strings 


LIST(<Bereich>X<filename>) 
Load<filename> 
LOG(<numerischer Ausdruck>) 
<Divident>MOD<Divisor> 
NEW 

NOT <Bedingung> 

NULL 


CASE<Ausdruck>OF 
DIM<stringvar>OF<max.char> 
DIM <stringarray > (array index> 
OF<max.char> 

siehe »FILE« 
<Bedingung>OR<Bedingung> 
ORD(<string-Ausdruck>) 


OTHERWISE <Bedingung> 


SELECT (OUTPUT)<type> 
PASS<disc command> 


PEEK<Speicheradresse > 


POKE<Speicheradresse>, 
<Bedingung> 
PRINT(FILE<filenum>:) 
(<items>) 

PRINT(FILE < filenum > :)USING 
<FORMAT >:<vars>(RANDOM file 
use:ffile<filnum>,<recnum> :)) 
PROC <name>((<params>)) 
(CLOSED) 

OPEN FILE <filenum>, <filename), 
RANDOM<recIn> 

READ<var list> 

READ FILE<filenum>(,<rec 
num>):<varlist> 
OPEN(FILE)<filenum>,<file 
name>,READ 

REF<var> 


RENUM (<targetstart>X, 
<Schrittweite>) 
REPEAT 


RESTORE 


RND(<num>) 
RUN 
SAVE<filename> 


SELECT(OUTPUT)<type> 
SGN(numerischer Ausdruck) 


SIN(numerischer Ausdruck) 
SIZE 


SOR(<numerischer Ausdruck>) 
STATUS$ 
STEP<numerischer Ausdruck> 


STOP 
SYS(<Speicheradresse>) 


TAB(<Spaltennummer>) 
TAN(<numerischer Ausdruck>) 
THEN 
<starrnum>TO<endnum> 
TRAPESC<type> 

TRUE 


OPEN 
FILE< #>,<nm> UNIT<def> 
(‚<sec>X,<type>) 





UNTIL Ende der REPEAT- UNTIL<Ausdruck> 
Schleife 
USING erlaubt formatierten PRINT USING <format>:<varlist> 
Output 
WHEN Auswahl in CASE-Kon- WHEN <list of values> 
strukt 
WHILE Beginn WHILE-Konstrukt WHILE<Ausdruck>(DO) 
(<Befehl>) 
WRITE Schreiben in ein File WRITE FILE<filenum>(‚<recnum 
>)<var list> 
OPEN (FILE)<filenum>,<file 
name >,WRITE 
ZONE Tabellenbereich ZONE <tab interval> ZONE 
Spezielle Spritebefehle 
DATACOLLISION Kollisionsabfrage mit DATACOLLISION < sprite#>,<res- 
Data et collisn ig?> 
DEFINE Sprite für späteren Ge- DEFINE <sprite definition num> 
brauch definieren ‚<64 byte def$> 
HIDESPRITE bestimmtes Sprite aus- HIDESPRITE<sprite number> 
schalten 
IDENTIFY einem Sprite eine IDENTIFY <sprite number>, 
Nummer zuordnen <definition number> 
(Bemerkung:Sprite 7 wird für TURTLE benutzt) 
PRIORITY gibt Sprite Priorität PRIOITY <sprite nüum>,<data 
über Data priority?> 
SPRITEBACK setzt zwei Multicolor- SPRITEBACK <colorl >,<color2> 
Sprite Farben 
SPRITECOLLISION _ testet Spritekollision SPRITECOLLISION <sprite# >, 
<reset collisn flg?> 
SPRITECOLOR setzt Sprite-Farbe SPRITECOLOR <sprite number>, 
<color number> 
SPRITEPOS positioniert Sprite auf SPRITEPOS<sprite#>,<x coord> 
xy Position ‚<y coord> 
SPRITESIZE setzt Sprite-Größe SPRITESIZE<sprite#>, 
<x expand?>,<y expand?> 
Tabelle 2. TURTLE GRAFIK von Comal im Vergleich zu Logo 
TURTLE GRAPHICS C64 LOGO C 64 LOGO C 64 COMAL C 64 COMAL 
CHART Items WORD EXAMPLE WORD EXAMPLE 
TURTLE CONTROL: 
Move forward lengtn FORWARD FORWARD 100 FORWARD FORWARD 100 
Move to a point SETXY SETXY 45 SETXY SETXY 4,5 
Move backward 
length BACK BACK THISFAR BACK BACK THISFAR 
Home turtie HOME HOME HOME HOME 
Turn turtie left LEFT LEFT 90 LEFT LEFT 90 
Turn turtie right RIGHT RIGHT MY- RIGHT RIGHT MY- 
TURN TURN 
Turn to specifichea-- SETHEADING SETHEADING 0 SETHEADING SETHEADING O 
ding 
Make turtle visible SHOWTURTLE SHOWTURTLE SHOWTURTLE SHOWTURTLE 
Make turtie Invisible HIDETURTLE HIDETURTLE HIDETURTLE HIDETURTLE 
Pen up off paper PENUP PENUP PENUP PENUP 
Pen down on paper PENDOWN PENDOWN PENDOWN PENDOWN 
Set pen color PENCOLOR PENCOLOR 4 PENCOLOR PENCOLOR 4 
Number of colors 16 16 
Set size of turtie = _ TURTLESIZE TURTLESIZE 6 
Plot a point = _ PLOT PLOT 20,35 
Print textin graphics ? ? PLOTTEXT PLOTTEXT 
1,1,»TEXTe 
SCREEN AND COLOR CONTROL: 
Clear graphics screen CLEARSCREEN CLEARSCREEN CLEAR CLEAR 
Set to graphics mode DRAW DRAW SETGRAPHIC SETGRAPHIC 
Set to text screen NODRAW NODRAW SETTEXT SETTEXT 
Set background color BACKGROUND BACKGROUND BACKGROUND BACKGROUND 
2 2 
Set border color E= _ BORDER BORDER 4 
Fill in an area _ _ FILL FILL 25,20 
Full screen mode FULLSCREEN FULLSCREEN FULLSCREEN FULLSCREEN 
Split screen mode SPLITSCREEN SPLITSCREEN SPLITSCREEN SPLITSCREEN 
FUNCTION KEYS RESULTS: 
Fi TEXT SCREEN TEXT SCREEN 
F3 SPLITSCREEN SPLITSCREEN 
F5 FULLSCREEN FULLSCREEN 
F7 GRAPHICS GRAPHICS 
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Der dritte »pass« ist der normale 
Programmlauf. 

Im direkten Zeitvergleich ist Co- 
mal sechsmal schneller als Basic. 
Die Suche nach Strings soll nach 


Herstellerangabe sogar 79mal 
schneller alsin Basic sein. Weiterhin 
soll man seine Programme drei- bis 
zehnmal schneller erstellen können. 

Auch ist zu erwähnen, daß Comal 
strukturiertes Programmieren voll 
unterstützt. 

Besonders muß darauf hingewie- 
sen werden, daß die Diskette mit 
dieser Programmiersprache nicht 
kopiergeschützt ist, und man sich so 
Be viele Backups herstellen 

ann. 


Diese Sprache gibt es 
fast kostenlos 


Wie im Vorspann schon erwähnt, 
wird diese Sprache umsonst oder 
zum Selbstkostenpreis der Datenträ- 
ger abgegeben. In der Anleitung 
selbst wird dazu aufgefordert, Co- 
mal zu kopieren und die Sprache 
dann an seine Freunde oder an sei- 
ne Schule weiterzugeben. In 
Schleswig-Holstein ist Comal be- 
reitsan den Schulen eingeführt. Nie- 
dersachsens Schulen sollen bald 
folgen. 

Comal ist über folgende Bezugs- 
auelle zu erhalten: 
Fa. INSTRUTEK 

Christian Holmsgarde, 8700 Hor- 
sens, Dänemark 

Ausdrücklich sei erwähnt, daß 
die 64’er Redaktion keine Kopien 
weitergeben kann. (rg) 
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leistungsfähiger und eleganter als Basic 


Funktionen, Prozeduren, dynamische Variablen sowie Mengenoperationen sind 
wichtige Elemente der Programmiersprache UCSD Pascal. Sie werden in diesem 
Bericht beschrieben und entsprechenden Basic-Lösungen gegenübergestellt. 


isting 10 zeigt die Verwendung 
L: Funktionen »Forward«- 

Deklaration, neue Statements 
und den Funktionsaufruf. Zuerstnun 
die Statements: 

»DIV« und »MOD« dürften zum Teil 
sicher schon bekannt sein, dennoch 
zur Erinnerung: »MOD x« ergibt den 
Rest der Division einer Zahl durch 
»X«, »DIV x« hingegen den ganzzahli- 
gen Änteil des Quotienten. 

ö Dar 345 MOD7 = 2 und 345 DIV 

-4 s 

Mit der »Forward-Deklaration« 
existiert nun die notwendige Mög- 
lichkeit, eine Prozedur oder eine 
Funktion zu deklarieren ohne sie zu 
definieren. Stellen Sie sich vor, Sie 
hätten zwei Prozeduren Pl und P2. 
Sie beginnen mit der Deklaration 
der Prozedur Pl und bemerken, 
daß Pl intern P2 aufruft. Nun darf 
man bekanntlich nichts in einer De- 
klaration verwenden, was nicht 
schon vorher deklariert worden ist. 
Nun, werden Sie denken, das ist 
kein Problem, ich deklariere eben 
zuerst P2. Jetzt stellen Sie aber fest, 
daß P2 ihrerseits Pl aufruft. Was ma- 
chen Sie nun? Für diesen Fall gibtes 
die »Forward»-Deklaration. Sie er- 
laubt es, wenigstens einmal den Na- 
men der Prozedur oder Funktion so- 
wie deren formale Parameter zu de- 
klarieren, natürlich muß dann spä- 
ter die Definition nachgeholt wer- 
den, aber dann ohne die formalen 
Parameter. Wie das aussehen kann, 
steht im obigen Beispielprogramm. 

Zur Funktion: Da die Funktion ei- 
nen Wert ausgibt, kann manihrauch 
einen Wert zuweisen. Das siehtman 
am Beginn des Hauptprogrammes. 
In der Funktion selbst muß man dem 
»„Namen« der Funktion den Wert zu- 
weisen, der in ihr bereitgestellt wur- 
de. Damithatnundie Funktion einen 
berechneten Übergabewert, mit 
welchem sie zurückkommt. Im Bei- 
spiel sind das die Zuweisungen: 
»QUERSUMME := x« und »QUER- 
SUMME :=temp«. 


AA UN-ıa 


Abschließend werden sechs 


Pascal-Versionen verglichen. 


PROGRAM QUERSUMMEN (INPUT,OUTPUT); 


VAR check,resultat : 


FUNCTION QUERSUMME (x 
PROCEDURE EINGABE; 
BEGIN 
PAGE (OUTPUT): 
WRITELN; WRITELN; 


: INTEGER) 


INTEGER: 


: INTEGER: FORWARD; 


WRITELN; 


WRITELN (”’BITTE GEBEN SIE EINE GANZE ZAHL EIN,°’); 
WRITELN (”’VON DER SIE DIE QUERSUMME WISSEN’); 


WRITELN (’WOLLEN. 
WRITELN; 
READLN (check); 


MIT 


2.0” 


KOENNEN SIE AUFHDEREN?’);z 


resultat := QUERSUMME (check); 


END: (*X VON EINGABE x) 
FUNCTION QUERSUMME; 
VAR temp : INTEGER; Listing 10. Dank der Forward-Deklaration 
BEGIN kann die Funktion Quersumme aufge- 
x := ABS (x); temp := 0; rufen werden, ohne bereits deklariert 
IF x < 10 zu sein. 
THEN QUERSUMME := x; 
ELSE REPEAT 
temp := x MOD 10 + temp; 
SEz=EXE DILVETOS 
UNTIL x <= 0; 
QUERSUMME := temp; 
END; (%* DER QUERSUMME x) 
BEGIN (% DES HAUPTPROGRAMMES %*) 
QUERSUMME := 1; 
REFEAT 
EINGABE; 


WRITELN (’QUERSUMME: 
UNTIL QUERSUMME (check) 
END. (x 


Mit der Funktion kann man sehr 
einfach rekursive Strukturen er- 
schaffen. Eine rekursive Funktion ist 
einfach gesagt eine Funktion, die 
sich selbst aufruft, die sich selbst 
enthält. Man kann durch derartige 
Programmierung sehr viel an Spei- 
cherplatz sparen oder auch unver- 
nünftig verschleudern, sie kann 
sehr schnell und effizient sein oder 
auch langsam und ineffizient. Rekur- 
sionen sind aber im allgemeinen 
»stackbelastend« Wenn Sie sich das 


’,resultat): 


ö 


DES HAUPTFROGRAMMES X) 


nächste Beispiel genau anschauen, 
werden Sie herausfinden weshalb. 
Die Funktion soll die sogenannten 
Fibboconacci-Zahlen ausgeben. Sie 
werden nach folgender Rekursions- 
formel berechnet: 


x(n+1l):= x(n) + x(n-]) wobei x(0) = 
xQ)=lundn=>| 

Im voraus sei gesagt, daß diese 
Funktion sehr ineffizient ist. Viel- 
leicht merken Sie schon beim ersten 
Durchlesen (Listing 11) weshalb. 
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Diese kleine rekursive Funktion 
berechnet also nach der Vorschrift 
ein beliebiges »x (n (>) bei Über- 
gabe von »n«. Versuchen Sie doch 
einmal, den Verlauf für die Zahl »x 
(5)« nachzuvollziehen. Sie merken, 
daß sehr viele Aufrufe nötig sind, bis 
sich die Funktion nicht mehr selbst 
aufruft. Für den Fall, wo»n = S«ist, 
sind 15 Aufrufe nötig. Das braucht 
Zeit und belastet eben den Stapel. 
Hier beträgt die maximale Rekur- 
sionstiefe 4. Ein weiteres schönes 
Beispiel für die Rekursion wäre die 
Lösung des Problems von Hanoi. Ich 
möchte sie hier nicht zeigen, der in- 
teressierte Leser findet sie in fast al- 
len Büchern über strukturiertes Pro- 
grammieren. Sie ist zwar sehr ele- 
gant, verbraucht aber sehr viel 
Speicherplatz und belastet den Sta- 
pel recht stark. 





Basic ohne Mengen 


Eine weitere sehr mächtige Grup- 
pe von Statements sind diejenigen, 
welche sich mit Mengen beschäfti- 
gen. Solche Befehle sind dem Basic 
gänzlich unbekannt. 

Angenommen, Sie wollen in ei- 
nem Programm nur eine bestimmte 
Eingabe erlauben, sagen wir alle 
Zahlen sowie die vier Operatoren 
»+,../*«, so müssen Sie in Basic etwa 
das Programm in Listing 12 pro- 
grammieren. 

In der Schleife das Pascal-Pro- 
gramm wird getestet, ob die Einga- 
be der Bedingung genügt. Ist doch 
viel eleganter, nicht wahr? Nun bie- 
tet Pascal nichtnur solche einfachen 
Zugehörigkeitstests, sondern umfas- 
sende Mengenoperationen. Einige 
Beispiele dazu: 


farbe = ROTBLAU, 


Fan Farge a 





Ein solches Set besteht jeweils aus 
der Potenzmenge aller zugehörigen 
Objekte. Sein Speicherbedarf kann 
unter Umständen immens sein. Man 
kann nun auf diesen Mengen alle 
Mengenoperationen durchführen: 
Vereinigungs-(+), Schnitt-(*) und Dif- 
ferenzmenge (-), Mengengleichheit 
(=) und -ungleichheit (<< >, Teil- 
(<=) und Obermengen (=>) und 
Zugehörigkeiten (IN). 

Sie sehen, man kann sehr univer- 
sell mit Mengen hantieren (Listing 
13). Es gibt dafür unzählige Anwen- 
dungsgebiete. Ihnen fallen sicher 
mehr ein. Ein kleiner Seitenblick auf 
Basic zeigt, daß solche Mengenope- 
rationen dort überhaupt nicht unter- 
stützt werden. 


Vielseitige Records 


Ich komme nun zu einem Merk- 
mal, das Wirth von Cobol übernom- 
men hat, welcher aber typisch für 
Pascal ist. Es sind dies die Records. 
Schön, aber was ist denn ein Re- 
cord? 

Am besten ist es, wenn man einen 
Record mit einem Array vergleicht. 


EROGRAM (INPUT, OUTPUT); 
IxPE 


MENGEN 
farbe = (ROT,BLAU,GRUEN, GELB, BRAUN, WEISS, SCHWARZ) ; 
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Ein Array ist ja bekanntlich eine An- 
zahl Variablen, die denselben Na- 
men (identifier) besitzen. Man unter- 
scheidet die einzelnen Elemente 
dadurch, daß man sie indiziert. 
Aber einen großen Nachteil haben 
Arrays: Älle Elemente müssen von 
demselben Typ sein, das heißt man 
kann nicht in ein und demselben Ar- 
ray Strings, Reals und Booleans zu- 
gleich haben. Nun, das ist ja nicht 
weiter schlimm, man nimmt eben 
mehrere Arrays. Stellen Sie sich 
aber vor, Sie möchten eine einfache 
Adreßverwaltung herstellen und die 
einzelnen Elemente so einfach an- 
sprechen wie die eines Arrays. Für 
jede Adresse brauchen Sie aber 
mehrere Felder, zum Beispiel für 
Namen, Wohnort, Postleitzahl etc. 
Wollen Sie noch irgendein Feld in 
der Adresse haben, welches sich 
für Berechnungen verwenden läßt, 
so haben Sie schon zwei Typen in 
der Adıesse, nämlich Felder der Ty- 
pen »AÄRRAY OF CHAR« oder, wenn 
vorhanden, »STRING« ung, für Rech- 
nungen, »REAL« oder »INTEGER«. 
Aufgrund dieser Betrachtung fällt 


_ 12. In Basic fehlen Men 


Dal 
Eye =. wiegt 


EG “a De ae TE 
3 ER haar 


eins, Fass 35 r 


ER x 





(Dhe Kerne em = 


tag = (MON,DIE,MIT,DON,FRE,SAM,SON); 


farbton = SET OF farbe; 
besetzt = SET OF tag; 
zahlen = SET OF 1..500; 
zeichen = SET OE char; 
buchstaben = SET OF ’A’..’7'; 
VAR mengel,menge2 : farbton; 
wochel,woche2 : besetzt; 
antwort : besetzt; 


BEGIN 
mengel 
menge2 := (SCHWARZ. 
wocheil := (MIT,FRE,SAM): 
woche2 := (MON,MIT,DON,FRE,SAM); 


:= (SCHWARZ,ROT,GRUEN, BLAU) ; 
GELB, BRAUN, BLAU, WEISS, ROT); 


WRITELN (’ ZUERST DIE VEREINIGUNGSMENGE: ”’): 


WRITELN (mengel + menge2); 
WRITELN; 


WRITELN (?JETZT DIE SCHNITTMENGE: ” 33 


WRITELN (mengel 7 menge2); 
WRITELN; 

WRITELN (”NUN DIE DIFFERENZMENGE: ” 
WRITELN (mengei - menge?); 
WRITELN: WRITELN: 


Listing 13. Umgang mit Mengen, 
Aufzählungs- und Ausschnittyp 


WRITELN ("WANN KOENNEN SIE KOMMEN?’); 


READLN (antwort); 

WRITELN; 

IF antwort <= woche? 
IHEN WRITELN 


("WIR HABEN IMMER ZEIT FUER SIE.”): 


IF tantwort => woche2) AND (’DIE’ IN antwort) 


WRITELN ("DIENSTAGS IST IMMER GESCHL 
KOENNEN SIE IMMER KOMMEN.’”); 


WRITELN ("SONST 
END; 
IE antwort => wochei 


OSSEN, ABER’); 


IHEN WRITELN (”SIE KOENNEN AUF JEDEN FALL IN DER 1.WOCHE KOMMEN.” >; 


Ausgabe 8/August 1984 


gen 


Software 





ein Array schon aus. Als »Ersatz« da- 
für bietet Pascal nun den Record. In 
ihm kann man nun beliebige Felder 
der verschiedensten Typen unter- 
bringen. Die Records können nunso 
leicht angesprochen werden, wie 
die Elemente eines Arrays. 

Ein Record wird im Typendekla- 
rationsteil deklariert. Eine Vorbe- 
merkung sei erlaubt: Alphanumeri- 
sche Eingaben kann man im UCSD- 
Pascal als zum Typen »STRING« ge- 
hörig deklarieren, in Standardpas- 
cal muß man sie als »PACKED AR- 
RAY OF CHAR« deklarieren. Beim 
Array kann man natürlich die Länge 
bestimmen, aber das ist bei Strings 
auch möglich und zwar folgender- 
maßen: 


FROGRAM DATEI (INPUT,OUTPUTI: 
IYPE maske = RECORD 
VORNAME 


STRING (x) erzeugt Platz für einen 
String der Länge »x«. Ich habe im 
nächsten Beispiel (Listing 14) die De- 
klaration für eine Adreßdatei von 
100 Adressen erstellt. Mit einem In- 
dex »i« habe ich nun Zugriff auf alle 
100 Adressen. 

Man könnte dies mit dem State- 
ment »WITH« viel eleganter lösen, 
aber dieses Statement ist bis jetzt in 
keiner einzigen Pascal-Version für 
den Commodore 64 implementiert. 








» STRINGL2S]: 
NACHNAME =: STRINGL2S]; 
STRASSE : STRINGL2S]: 
NUMMER » STRINGL4]; 
PLZ : STRINGL&]; 
WOHNORT z STRINGL2S]; 
TELEFON : STRINGL14]; 
SATZNR : 0..100 


END; 
felder = (VORNAME, NACHNAME, STRASSE , NUMMER, PLZ, WOHNORT, TELEFON) z 


YAR 
i » felder; 
eingabe : STRING; 
e = CHAR; 
3 : INTEGER; 


FROCEDURE BILDSCHIRM; 
BEGIN 


WRITELN (’BITTE’); 
case i DE 


adresse : ARRAY [0..1001 OF maske; 


VORNAME : WRITE (’IHREN VORNAMEN :°); 
NACHNAME: WRITE (’ IHREN NACHNAMEN: ’); 
STRASSE : WRITE (’DIE STRASSE 2”); 
NUMMER : WRITE (’DIE HAUSNUMMER 2”); 
PLZ : WRITE (’DIE POSTLEIZAHL:”); 
WOHNORT : WRITE (’IHREN WOHNORT :”); 
TELEFON : WRITE (’IHRE TELEFONNUMMER: ’) 
END 
END; 
EROCEDURE ZUWEISUNG; 
BEGIN 
case i OF 
VORNAME : adressel[ j]. VORNAME := eingabe; 
NACHNAME: adressel 5;2.NACHNAME:= eingabe; Listing 14. 
tea : adressel j]3.STRASSE := eingabe; Ein Adreßsatz wird definiert 
NUMME| : adressel[ 5].NUMMER := eingabe; 
PLZ : adressel ;].PL7 = naar und Adressen eingegeben 
T x adresse[ 5]1.WOHNORT := eingabez 
TELEFON : adresse[ j]J. TELEFON := eingabe 
END 
END; 
BEGIN 
se 05 
AT 


READLN (eingabe); 
ZUWEISUNG: 
adresse[ 5J.SATZNR := j; 


WRITELN (”SIND ALLE ANGABEN KORREKT? J/N’); 


READ (c);z 
UNTIL ce = 3” 


END; 
WRITELN (’NOCH EINE EINGABE?’): 


READ (c); 
sem jr 
UNTIL (ce <> ”9”) OR tj > 100) 


AR Alam 


Im Record sind deshalb nur Fel- 
der vom Typ »STRING« benützt wor- 
den, weil man mit ihnen leicht eine 
Eingaberoutine programmieren 
kann, wie ich es oben getan habe. 
Für verschiedene Typen, die natür- 
lich ihrerseits auch wieder Records 
sein können, muß man mehrere »RE- 
ADLN«-Routinen für verschiedene 
Typen einführen oder gegebenen- 
falls eine »STRING to INTEGER«- 
Konversion durchführen. 


Mit dieser 
Eingaberoutine kann man nun alle 
100 Adressen eingeben, wenn man 
will. Nun haben wir also schon eine 
einfache Adreßdatei aufgebaut. 
Das sollte man einmal in Basic versu- 
chen, wobei das Programm aber 
vergleichbar viele Zeilen haben 
sollte. 

Eine Routine zur Ausgabe der 
Adressen ist nach dem Studium des 
obigen Beispiels leicht erstellbar. 
Mit Angabe des entsprechenden In- 
dexes hat man nun Zugriff auf alle 
Datensätze. Nun, was natürlich noch 
fehlt, ist die Abspeicherung der Da- 
tensätze auf irgendeinem externen 
Massenspeicher. Das ist in Pascal 
sehr einfach, ist aber mit zwei Ein- 
schränkungen behaftet. Die erste 
ist, daß man (in einfacher Weise) nur 
sequentiell abspeichern und lesen 
kann, die zweite, daß man ein File 
ausdrücklich als extern deklarieren 
muß, wenn man nicht will, daß esmit 
Beendigung des Programmes ver- 
schwindet (diese Tatsache kann 
man benützen, wenn man nur Zwi- 
schenwerte für zeitlich beschränk- 
ten Gebrauch extern abspeichern 
will). Die Deklaration und Eröffnung 
eines externen Files geschieht wie 
im Listing 18. 

Hier gleich noch ein Wort zu »IN- 
PUT« und »OUTPUT«. Hier wird klar, 
was sie darstellen: Es sind Dateien. 
»INPUT« ist die Standard-Eingabe- 
datei (meistens die Tastatur) und 
»OUTPUT« die Standard-Ausgabe- 
datei (meistens der Bildschirm). 

Anders als in Basic ist aber das 
Beschreiben des Files nicht so ohne 
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weiteres möglich. Jedes zu schrei- 
bende Element muß vorher in ein 
sogenanntes Dateifenster gebracht 
werden, denn nur dieses Fenster 
kann auf das File geschrieben wer- 
den. Das Dateifenster hat densel- 
ben Namen wie die dazugehörige 
Datei, manhängtihmnurnochein »« 
hinten an. Die Standardprozedur, 
die nun das Dateifenster im File ab- 
legt, heißt »PUT (dateifensterna- 
me)«. Das Fenster wird geschrieben 
und ist danach unbestimmt. Nach- 
demmanalso das Fenster belegt hat 
(hier also das Fenster »adresse”«), 
kann man es mit »PUT (adresse)« ins 
File schreiben. Aber Vorsicht: Man 
muß noch wissen, ob man an dieser 
Stelle überhaupt schreiben darf. 
Deshlab sollte man mit zum Beispiel 
»WHILE EOF (adresse) DO PUT 
(adresse)« jeweils testen, ob hier 
Platz frei ist oder nicht (EOF = End 
Of File). In unserem Beispiel (Listing 
16) sähe dies so aus: Zuerst die Zu- 
weisung (hier einmal mit »WITH«, 
vergleiche oben), dann das Abspei- 
chern: 

Damit hat man nun also einen Re- 

cord abgespeichert. Das Zurückho- 
len funktioniert ähnlich. Nehmen wir 
an, wir hätten mehrere Records ab- 
gespeichert, so befinden wir uns 
längst nicht mehr am Anfang desFi- 
les. Dorthin müssen wir aber, um er- 
folgreich einlesen zu können. Die 
Standardprozedur, die uns an den 
Anfang bringt und das File zum Le- 
sen eröffnet, heißt »RESET (dateifen- 
stername)«. Sie hat auch dafür ge- 
sorgt, daß bereits das erste Element 
des Files im Dateifenster »adresse”« 
bereitsteht. Analog zum Beispiel 
oben verhält sich die Belegung ei- 
nes Records mit den Daten des Fen- 
sters. Dazu gibt es das Gegenstück 
zu »PUT«, nämlich die Standardpro- 
zedur »GET (dateifenstername). 
Damit man auch hier merkt, wann 
man aufhören soll zu lesen, sollte 
man mit dem Statement » 
NOT EOF (adresse) DO GET (adres- 
se)« prüfen, ob das Ende des Files 
schon erreicht ist oder nicht. Sie se- 
hen, mit dem Record läßt sich vieles 
sehr vereinfachen, wo es um große, 
verschiedenartige Datenmengen 
geht. 


Pascal: Auch dynamisch 


Ziemlich am Anfang wurde festge- 
stellt, daß Pascal eine statische Spei- 
cherverwaltung besitzt. Das stimmt 
nur bedingt. Es gibt in Pascal dyna- 
mische Speicherverwaltung, die so- 
gar dynamischer ist, als diejenige in 
Basic. In Basic ist es bekannterma- 


EN '=IR-ia 


ßen nicht erlaubt, ein Feld mit »DIM« 
ein zweites Mal zu dimensionieren. 


WITH adresse” DO 
BES 

VORNAME ı= adressel j1. VORNAME; 

ee ı= adressel 52. NACHNAME; 
ı= adressel j3.STRASSE; 

en: ı= adressel j]. NUMMER; 

PLZ ı= adresselj2.PL2; 

WOHNORT := adresselj]. 

TELEFON ı= adresse[ ;). TELEFON 


END; 
IE EOF IHEN PUT (adresse 
ELSE WRITELN GPBEBETZT 1n335 
END; 


Listing 16. Mit der With-Anweisung läßt sich die 
Dateneingabe in Listing 14 viel eleganter lösen 


In Pascal kann man dies erreichen, 
man muß nur anstelle der Arrays 
»Dynamische Variablen« verwen- 
den. Man überläßt damit dem Com- 
puter die Verwaltung des Speicher- 
platzes jeder einzelnen Variablen, 
die dafür überall im Speicher ver- 
teilt sein können, zum Beispiel Varia- 
ble »a« bei 3508, »b« bei 26876 etc. 
Anstelle von Indizes benützt man 
dann eben sogenannte »Zeiger« 
(pointers). Der Computer verwaltet 
alle diese Zeiger selbst, man kann 
die Werte dieser Zeiger somit nie- 
mals auslesen. Mit dieser Methode 
machen wir unsere Adreßverwal- 
tung dynamisch. Das heißt man soll- 
te problemloslöschen, sortieren, än- 
dern und vor allem erweitern kön- 
nen. Es ist leicht ersichtlich, daß 
dies natürlich mit solchen Zeigern 
sehr einfach ist, weil man nicht die 
Datensätze verschieben, sondern 
nur die Zeiger ändern muß. Eine Va- 
riable wird zum Zeiger, indem man 
dem Typennamen, auf den er zei- 
gen soll, ein »“« voranstellt. In unse- 
rem Beispiel: 





Eine Deklaration schafft aber 
noch keinen Platz, da die Zeiger zu- 
erst noch nicht definiert sind. Um 
nun wirklich im Speicher Platz für 
die dynamische Variable zu bekom- 
men, gibt es die Standardprozedur 
»NEW (adr]) sucht Platz für den dy- 
namischen Record »maske«, NEW (j) 
für die dynamische Variable »j«. 
Durch 
adı] VORNAME ı= »PETER«; 
= 9, 
werden dem ersten Feld im dynam- 
sichen Record »adrl« der Name »PE- 
TER« zugewiesen und die dynami- 
sche Variable »j« bekommt via den 
Zeiger den Wert »9. Beachten Sie 
den Unterschied: 


»j« bezeichnet eine Zeigervariable 
auf ein Objekt vom Typ »INTEGER«. 
»j‘« bezeichnet eine dynamische Va- 
riable vom Typ »INTEGER«. 

»adrl« bezeichnet eine Zeigervaria- 
ble aufein Objekt vom Typ »maske«. 
»adrl“« bezeichnet eine ganze dyna- 
mische Variable vom Typ »maske«, 
das heißt einen ganzen dynami- 
schen Record. 

»adrl".feld« bezeichnet ein Feld des 
dynamischen Records, auf den 
»adrl« zeigt. 

Wenn man im Record ein Feld ein- 
führt, das selbst ein Zeiger ist, kann 
man sehr leicht verkettete Listen 
aufbauen etc. Speziell für diese An- 
wendung gibt es das Statement 
»NIL«. Wenn man nämlich einen Zei- 
ger hat, der aufdas Ende einer Liste 
zeigt, so darf er ja nichts mehr ent- 
halten. Um diesen »Nichts«-Zustand 
genau zu definieren, kann man ei- 
nem Zeiger den Wert »NIL« zuwei- 
sen. Die Verkettung beginnt mit ei- 
nem Zeiger und endet mit »NIL«. 
Wenn man nun eine Sortierung der 
Datensätze durchführen will, so hat 
man im Wesentlichen »nur« die Zei- 
ger neu zu berechnen, damit die 
Verkettung gemäß den Kriterien 
richtig verläuft. Eslassensichsoalle 
Arten von Datenstrukturen verwirk- 
lichen zum Beispiel Baum- oder 
Sternstrukturen. 

Ich hoffe, daß man sich mit Hilfe 
meiner Ausführung einen kleinen 
Überblick über Pascal verschaffen 
konnte. Einen Schnellkurs über die 
Programmierung in Pascal ersetzt 
dieser Artikel sicher nicht. Der in- 
teressierte Leser wird ohnehin 
Fachliteratur lesen müssen, um alle 
Finessen von Pascal kennenzuler- 
nen. 

Sechs Pascal-Versionen 

im Vergleich 

Mir sind bis jetzt sechs komplette 
Pascalsysteme bekannt: Pascal 64, 
Pascal 64 V3.0, beide von Data 
Becker, das Pascal von Abacus Soft- 
ware, G-Pascal, das KMMM-Pascal 
und das Oxford Pascal. Darüber 
hinaus gibt es noch einen 4-pass 
UCSD-Pascal-Compiler, über den 
ichabernochnichtssagen kann. Die 
35 reservierten Pascalstatements 
(AND, ARRAY, BEGIN, CASE, 
CONST, DIV, DO, DONWTO, ELSE, 
END, FILE, FOR ‚FUNKTION, GO- 
TO, IE, IN , LABEL, MOD, NIL, NOT, 
OF, OR, PACKED, PROCEDURE, 
PROGRAM, RECORD, REPEAT, 
SET, THEN, TO, TYPE, UNTIL, VAR, 
WHILE, WITH) werden nur von zwei 
Versionen vollständig unterstützt. 
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Im Pascal 64 fehlen: FILE nur be- 
ding, GOTO, IN, LABEL, NIL, 
PACKED PROGRAM, RECORD, 
SET, TYPE und WITH. 

Pascal 64 V3.0 enthält 
Standard-Pascalstatements! 

Im Pascal von Abacus fehlen: FI- 
LE, GOTO, IN, LABEL, NIL, 
PACKED PROGRAM, RECORD, 
SET und WITH. 

Im G-Pascal fehlen: FILE, GOTO, 
IN, LABEL, NIL, PACKED, PRO- 
GE RECORD, SET, TYPE und 


WITH. 

Im KMMM-Pascal fehlen: GOTO, 
LABEL, SET und WITH. 

Im Oxford-Pascal fehlt: kein einzi- 
ges Standard-Pascalstatement! 

Meiner Meinung nach ist ein Pro- 
gramm kein vemünftiges Pascal, 
wenn TYPE, SET und besonders RE- 
CORD fehlen, denn WHILE..DO, 
REPEAT.UNTIL, lokale Variabeln 
etc. bieten bekanntlich schon Si- 
mons Basic, welches dann auch 
noch Grafik und Sound recht gut un- 
terstützt. 

Es muß auch gesagt werden, daß 
lange nicht alle Standardprozedu- 
ren implementiert wurden. Ich 
möchte nun alle Versionen kurz be- 


sprechen. 
Pascal 64 


Dieses Pascal wird in Basic emu- 
liert! Es ist kein UCSD-Pascal, das 
heißt, komplette Stringbehandlung 
fehlt, wichtige Standardprozeduren 
wie NEW, EOF, PAGE, PUT, GET, 
PACK, UNPACK fehlen. Es besitzt 
dagegen eine kleine Grafikunter- 
stützung, Sprites, zwei Rechenge- 
schwindigkeiten (INTEGER/REAL), 
PEEK, POKE und SYS. Die Compi- 
lierzeit ist unerträglich lang. Nach 
Aussage eines Benutzers brauchte 
der Compiler für 234 Zeilen Source- 
text zirka 45 Minuten. Der Editor ist, 
weil es der eingebaute Full-Screen- 
Editor ist, natürlich zeilenorientiert 
und verlangt zum Teil unsichtbare 
GeSHIFTete SPACESs als Begrenzer 
von Zahlen, was man natürlich oft 
vergißt. Es werden darüber hinaus 
keine Editierhilfen geboten. Der 
Compiler ist nach dem Laden resi- 
dent ab der Basiczeile 10000. Man 
kann daher den Pascalcompiler 
selbst nicht mit dem Austrocompiler 
oder Petspeed verschnellern, weil 
man die Zeile 1 bis 9999 für das eige- 
ne Programm benutzen muß. Fehler- 
meldungen nur wie in Basic (zum 
Beispiel ERROR in 20). Der P-Code 
ist nur zusammen mit einem Lader 
ausführbar. Das Handbuch hat eini- 
ge Druckfehler und Ungenauigkei- 
ten. 


alle 
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Alle reservierten Pascalstate- 
ments sowie alle Standardprozedu- 
ren sind implementiert! Weiterhin 
Mathematikfunktionen und Unter- 
stützungen für die Programmierung 
von Hires- und Multicolor-Grafik 
und Sprites. Die Soundprogrammie- 
rung und der UCSD-Typ 'STRING,, 
der aber im Typendeklarationsteil 


Pascal 64 V3.0 


mit 'PACKED ARRAY (x.y) OF 
CHAR?’ definiert werden kann, wer- 
den nicht unterstützt. Bis zu vierdi- 
mensionale Ärrays und komplexe 
Parameterübergabe an Prozeduren 
und Funktionen sind möglich. Als 
Anpassung an den Commodore 64 
werden außerdem noch die relati- 
ven Files und ein bequemeres Dis- 
kettenhandling geboten. PEEK, PO- 
KE sowie Aufruf von Maschinenrou- 
tinen sind möglich. Eine Daten- 
schnittstelle zum Profimat ist einge- 
baut. Als besonderes Feature gibt 
es die Interruptprocedure, die wäh- 
rend eines jeden Interrupts ausge- 
führt wird, unabhängig davon, ob 
man sich noch im Pascalprogramm 
oder wieder im Basic befindet. Der 
Editor ist derselbe wie beim Pascal 
64. Da aber der Compiler nicht 
schon wie beim Pascal 64 zur Erzeu- 
gung der Sourcefiles vorhanden 
sein muß, kann man Basiceditierhil- 
fen wie zum Beispiel Exbasic Level 
II verwenden. Der langsame Com- 
piler liest und compiliert von bezie- 
hungsweise auf Diskette. Nach er- 
folgreicher Compilierung muß ein 
spezielles Ladeprogramm eingela- 
den werden, das aus dem P-Code 
Maschinensprache und somit ein, 
ohne zusätzliche Hilfsprogramme, 
ablauffähiges Pascalprogramm er- 
stellt. Erscheint ein Syntaxfehler, so 
steigt der Compiler aus ohne eine 
konkrete Angabe über Fehlerart 
und das Auftreten des Fehlers. Auch 
jetzt noch muß der Benutzer dem 
Compiler unverständlicherweise ei- 
nige Parameter »von Hand« überge- 
ben wie schon beim Pascal 64. Ein 
interessantes Detail für alle Beisitzer 
des alten Pascal 64: Nach Auskunft 
von Data Becker können alle dieje- 
nigen, die das alte Pascal 64 besit- 
zen, dieses gegen zirka 50 Mark auf 
den Stand der neuen Pascalversion 
Pascal 64 V3. 0 aktualisieren lassen. 
Das neue Pascal 64 V3. 0 soll übri- 
gens auch nur 99 Mark kosten. 


Pascal von Abacus 


Dieses Pascal wird in Basic emu- 
liert! Abcus-Pascal ist kein UCSD- 








Pascal: die komplette Stringbehand- 
lung fehlt, wichtige Standardproze- 
duren wie NEW, EOF, PAGE, PUT, 
GET, PACK, UNPACK sowie Mathe- 
matikfunktionen fehlen ebenfalls. 
Es besteht aus drei Teilen: Editor 
(5,5 KByte), Compiler (10 KByte) und 
Interpreter (7,25 KByte). Der Editor 
arbeitet zeilenorientiert. Ein Pascal- 
sourcefile wird als sequentielles Fi- 
le abgelegt, das heißt es ist möglich, 
einen anderen Editor zu benützen. 
Der Compiler bearbeitetzehn kurze 
Sourcezeilen in 25 Sekunden. Beim 
Auftreten eines Fehlers wird nur ein 
Fehlercode ausgegeben und der 
Compiler steigt aus. Man muß dann 
zum Beispiel den Editor selbst la- 
den. Im Falle eines Fehlers wird 
man also in keiner Form unterstützt. 
Der P-Code läuft nur mit Interpreter. 


G-Pascal 


G-Pascal ist kein UCSD-Pascal. 
Die komplette Stringbehandlung, 
wichtige Starndardprozeduren wie 
NEW, EOF, PAGE, PUT, GET, PACK, 
UNPACK, ORD sowie sämtliche 
Mathematikfunktionen, Type Real 
(kann nicht deklariert werden) und 
Boolean fehlen. Dafür bietet dieses 
Pascal eine extrem umfangreiche 
Sprite-, Grafik- und Soundunterstüt- 
zung. Einiges mehr als zwei Dutzend 
Statements bietet G-Pascal allein für 
Grafik, Sound, Sprites (vor allemKol- 
lisionen) und Timersteuerung. Es 
besitzt auch als einziges ein »GOTO- 
XY«. Die Sprites scheinen IRQ- 
gesteuert. Maschinensprache- 
Routinen können aufgerufen wer- 
den. Abfragen für Joystick, Paddles, 
Lightpen sind vorhanden. Bitmani- 
pulationen sind möglich. 16 KByte 
Maschinensprache werden gela- 
den, und dann ist das Pascal inklusi- 
ve Compiler und Editor resident. 
Der Editor ist ein zeilenorientierter 
Line-By-Line Editor recht beachtli- 
chen Komforts, zum Beispiel mit 
Help-Befehl und Syntax-Checking 
Part vor der Compilierung. Fehler- 
meldungen werden im englischen 
Klartext ausgegeben. Der Compiler 
ist sehr schnell. Zudem bietet es ei- 
nen Tracer, Debugger und Filer. Mit 
G-Pascal läßt sich bequem und 
übersichtlich arbeiten. 


KMMM-Pascal 


KMMM-Pascal bietet komplette 
Stringbehandlungen sowie alle Ma- 
thematikfunktionen, Type Text und 
einen Zufallsgenerator. Von allen 
Standardprozeduren fehlen nur 
PACK, UNPACK, PAGE. Automati- 
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sche Typenkonversion (String - 
CHAR) und Bitmanipulationen sind 
möglich, wie auch Bitoperationen 
auf Integervariablen. Maschinen- 
sprache-Routinen können aufgeru- 
fen werden. PEEK und POKE sind 
auch möglich. Das Programm be- 
steht aus drei Teilen: Editor (7,75 
KByte), Editor/Compiler (23 KByte), 
Compiler (18,25 KByte) und Transla- 
tor (19,5 KByte). 

KMMM-Pascal erzeugt echten 
Maschinencode. Nach der Überset- 
zung kann man das Pascal-Pro- 
gramm abspeichern und nachher 
wie ein normales Maschinenspro- 
gramm laden. Es blendet das Basic- 
ROM aus, das heißt man hat neben 
dem Compiler noch runde 25 KBy- 
tes, für Pascalprogramme! Der Edi- 
tor ist ein formatfreier Full Screen 
Editor überdurchschnittlichen Kom- 
forts (komfortabler als der einge- 
baute Editor), mit eingebautem Syn- 
tax Checking Part und belegten 
Funktionstasten. Eine häufig benö- 
tigte Steuercodesequenz kann als 
Macrobefehl definiert werden. Der 
Syntaxchecker spürt alle Syntaxfeh- 
ler auf, wobei der Cursor die verur- 
sachende Stelle markiert und eine 
englische Klartextmeldung er- 
scheint. Der Editor generiert ein se- 
quentielles File, so daß man einen 
anderen Editor oder auch eine Text- 
verarbeitung wie Easyscript benüt- 
zen kann. Nach erfolgreichem Er- 
stellen des Sourcefiles lädt man den 


Schnelle Compiler 


Compiler, der bei Bedarf ein ASCI 
— oder »PETSCII«-Listing erstellt, 
während er (übrigens sehr schnell) 
compiliert. Der P-Code ist abspei- 
cherbar. Nach der Compilierung 
wird der Translator nachgeladen, 
der nun den P-Code ziemlich 
schnell in Maschinencode über- 
setzt. Nach dessen Fertigstellung 
wird die Kontrolle wieder dem Basic 
übergeben. Die Zeiger sind automa- 
tisch so gesetzt worden, daß man 
das Programm sofort abspeichern 
kann. KMMM-Pascal unterstützt den 
IEEE-Bus und erlaubt die Verwen- 
dung von DOS 5.1. Im Lieferumfang 
gibt es auch noch mehr als zehn De- 
moprogramme sowie ein 70-seitiges 
Manual. Dieses Pascal kann gegen 
eine sehr geringe Gebühr dem je- 
weiligen aktuellen Stand angepaßt 
werden, was einem die Hersteller- 
firma garaniert. Der Hersteller gab 
auf eine entsprechende Anfrage 
bekannt, daß bis Ende 1984 das 
KMMM-Pascal den Sprachumfang 
eines Jensen/Wirth-Pascals besit- 
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zensoll, wodurch es danneinsowohl 
im Handling als auch in bezug auf 
die Compilerleistung sehr überzeu- 
gendes Pascal sein wird. Von der 
Firma kann man auch gegen etwa 13 
SFr. eine Programmbibliothek der 
schon bestehenden Programme er- 
stehen. Diese Pascalversion wird 
von der Firma seit 1983 für den Com- 
modore 64 angeboten und betreut. 
Alle Programme, außer denjenigen, 
die sich mit 'SET' oder "WITH' be- 
fassen, wurden unter KMMM-Pas- 
cal erstellt. 


Oxford Pascal 


Über dieses Pascal waren mir zu 
diesem Zeitpunkt erst diejenigen In- 
formationen bekannt, die man ei- 
nem englischen, nicht allzu umfang- 
reichen Handbuch entnehmen 
kann. Es unterstützt alle 35 reser- 
vierten Pascalstatements und alle 40 
Pascal-Standardprozeduren, alle 


‚Standardtypen (außer 'STRING)', der 


aber leicht simuliert werden kann, 
siehe oben) sowie Mathematikfunk- 
tionen und Bitmanipulationen, auch 
auf Integern. Mengenoperationen 
sowie sogar variante Recordst!) 
werden unterstützt. Darüber hinaus 
ist es auch an die Fähigkeiten des 
Commodore 64 angepaßt, was be- 
deutet, daß es Grafik und Sound un- 
terstützt. Dazu besitzt es sehr kom- 
fortable Befehle, welche zum Bei- 
spiel in der Grafik Linien ziehen be- 
ziehungsweise löschen, Flächen 
ausfüllen beziehungsweise leeren 
und Punkte setzen beziehungsweise 
löschen oder prüfen können. Für 
den normalen Bildschirm gibtesdie 
Prozedur »/DU«, die ein Zeichen an 
jeder beliebigen Stelle des Schirms 
ausgibt. Für den Sound gibt es die 
Prozedur »ENVEL«, die die Hüllkur- 
ve bestimmt, und für Frequenz, Wel- 
lenform und Dauer die Prozedur 
»VOICE« sowie eine eigene Proze- 
dur »vOLUME«. Es unterstützt PEEK 
und POKE und erlaubt, in Pascal 
Maschinenprogramme zu editieren 
und als Pascalprozedur abzuspei- 
cher. Weitere Features: Restore- 
Taste blockieren, Zugriff auf die Ti- 
me Of Day-Clock, sedezimale 
Zahlenein- und -ausgabe, externe, 
linkbare Programm-Module, For- 
warddeklarationen, Übergabepa- 
rameter dürfen auch Prozeduren 
und Funktionen sein, Prozeduren 
»PACK« und »UNPACK«, n-dimensio- 
nale Arrays. Es erzeugt Maschinen- 
code. Es besitzt einen eigenen Edi- 
tor, der im wesentlichen dem einge- 
bauten FullScreen-Editor ent- 
spricht, deraberumsonützliche Hil- 


fen wie AUTO, DISK, NUMBER, 
FIND CHANGE, DELETE, PUT, 
GET, HEX, DECIMAL, DUMP EX, 
LINK, COMPILE und einige Basic- 
befehle erweitert ist. Es gibt zwei 
Compiler. Der eine ist resident und 
compiliert und führt ein Programm 
sofort aus, was das Oxford Pascal 
vor allem für den Einsteiger, neben 
dem G-Pascal, sehr interessant 
macht. Der zweite Compiler ist ein 
Diskettencompiler, das heißt er liest 
und compiliert von beziehungswei- 
se auf Diskette mit der Möglichkeit, 
externe Programm-Module einzu- 
binden. Der Befehl »LOCATE« er- 
zeugt danach ein ohne Hilfsmittel 
ablauffähiges Programm. Fehler- 
meldungen werden im englischen 
Klartext ausgegeben mit Angabe 
über die ungefähre Stelle im Listing. 


Nur drei Versionen 
brauchbar 


Meine persönlichen Erfahrungen 
haben gezeigt, daß bis auf das 
-KMMM-Pascal, das Oxford Pascal 
(soweit man ein Programm theore- 
tisch beurteilen kann) und dann 
noch das Pascal 64 V.3 0 keine einzi- 
ge der anderen Versionen befriedi- 
gen kann. So ist beispielsweise der 
erste Pascal 64 sein Geld nicht wert, 
das neue Pascal 64 V3.0 desselben 
hingegen ist in bezug auf die Lei- 
stung des Compilers das krasse Ge- 
genteil vom Pascal 64. Einen komfor- 
tablen Editor besitzen beide Versio- 
nen nicht, was besonders beim neu- 
en Pascal 64 V3.0 ein echtes Ärger- 
nis darstellt. Die Fähigkeiten des 
neuen Compilers wurden gegen- 
über demjenigen des Pascal 64 dra- 
stisch verbesert. Wer sich ein zwar 
auch nicht überzeugendes aber 
dennoch in puncto Grafik und Ge- 
schwindigkeit dem Pascal 64 über- 
legenes Pascal zulegen möchte, der 
sollte sich das G-Pascal besorgen. 
Das Pascal von Abacus ist nur unwe- 
sentlich besser als das Pascal 64, 
denn es bietet eigentlich nur ein 
spezielles Pascalstatement 'TYPE'‘, 
Von allen Versionen ist wohl das G* 
Pascal das bequemste, weil es me- 
nügeesteuert ist. Das Pascal 64 ist 
bei Laufzeitfehlern bis auf das G- 
Pascal am leichtesten editierbar. 
Weil das G-Pascal und das KMMM- 
Pascal einen eingebauten Syntax 
Checking Part besitzen, sind sie bei 
Syntaxfehlern am leichtesten edi- 
tierbar. Bei allen Versionen außer 
dem KMMM-Pascal, dem neuen 
Pascal 64 V3.0 und dem Oxford Pas, 
cal ist das Programm nur lauffähig, 


Fortsetzung auf Seite 163 
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Bild 1. Bildschirmformat 25 x 20 


Der Video-Chip des VC 20 kann wesent- 
lich mehr als nur die Bildschirmfarben 
steuern und Musik machen. So läßt sich 
zum Beispiel mit wenig Aufwand das 
Bildschirmformat ändern oder zwischen 
verschiedenen Bildschirmseiten umschal- 
ten. Auch die Erzeugung hochauflösender 
Grafik ist nicht so schwierig, wie es 
manchem Anfänger scheinen mag. 


dern« CBM 4032/8032 wird 

die Bildschirmdarstellung des 
VC 20 mit einem speziellen Video- 
controller erzeugt. Das Betriebssy- 
stem stellt diesen Baustein nach 
dem Einschalten auf das bekannte 
Format von 22 Zeichen bei 23 Zeilen 
ein. Da diese Festlegung software- 
mäßig erfolgt, istesin Grenzen mög- 
lich, das Bildschirmformat nachträg- 
lich durch POKE-Befehle zu ändern. 
Leider werden solche interessanten 
Möglichkeiten des VC 20 (und © 64) 
von Commodore nur durch die Be- 
fehle PEEK und POKE unterstützt. 
Deshalb an dieser Stelle zunächst 
ein Exkurs zu den Bits und Bytes. Ein 
Byte setzt sich aus acht Bits zusam- 
men, aber das wissen Sie ja sicher- 
lich schon. Um in Basic einzelne Bits 
anzusprechen, muß eine Bit-Kombi- 
nation zuerst in den entsprechen- 


W: bei seinen »großen Brü- 


ER =IR-1a 


PSKE 38883 :38 
PSKE 38882 :183 


den Dezimalwert ümgerechnet wer- 
den. Dies erreicht man mit der fol- 
genden Beispielrechnung: 
Bit: 76543210 
Wer:10000001 
=117*1+216*0+215*0+...+210*1 
oder: 217+2t0 

Das Ergebnis aus 217+210 
lautet 128+1 also 129. Mit den bei- 
den Basic-Befehlen AND und OR 
können die Bits gezielt verändert 
werden. Hierzu ein Beispiel: »R=128 
: V=1 : PRINT R OR \«. In Bit- 
Schreibweise sieht die Rechnung 


wie folgt aus: 

R=10000>0- 200 0::7128 
v.0400020:07270 01: 1 
E:315020.0:0..5.0x01:=329 
Falls ein BitinR oder in V (oder iin 


beiden) gesetzt ist, wird dieses Bit 
auch als »l« in das Ergebnis über- 
nommen. Umgekehrt werden jene 
Bits zu Null, deren entsprechenden 





353855, 24 
353857,55 
385366, 145 


Bild 2. Bildschirmformat 17 x 29 


Positionen in beiden Variablen zu- 
rückgesetzt sind. 


Durch den OR-Befehl können ge- 
zielt Bits gesetzt werden. Im Bild- 
schirmspeicher bewirkt das gesetz- 
te siebte Bit, daß das Zeichen inver- 
tiert dargestellt wird. Schreiben Sie 
einmal ein Zeichen links oben auf 
den Bildschirm. Ermitteln Sie nun 
den »Z=PEEK(7680)« (PEEK(4096) 
beim erweiterten VC) den entspre- 
chenden Zeichencode, Durch Z=Z 
OR 128 wird nun das siebente Bit ge- 
setzt. POKE 7680,2 schreibt den 
Wert zurück und das Zeichen er- 
scheint invertiert. 


Das folgende kurze Programm in- 
vertiert den gesamten Bildschirm. 
10 A=7680 : REM ODER 40896! 

20 FOR I=0 TO 511 : D=PEEK(I+A) 
30 D=DOR 128: POKEA+ID: 
NEXT 
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Bild 3. Das Plotten von Funktionen ist kein Problem mit der Grafikerweiterung 


Falls Sie die Zeile 30 durch »D=D 
AND 127....« ersetzen, werden die 
zuvor invertierten Zeichen wieder 
»normal« dargestellt. Durch die BIT- 
ee wird dies anschau- 

ch: 

R::-170-:020-0-020% 14129) 
V0Slelel ia 1.2120 
B#.070402040=0/:0 I =Ishl 

Alle BIT-Positionen von R werden 
in das Ergebnis übernommen, so- 
bald die entsprechenden Positionen 
des Vergleichswertes auf »l« gesetzt 
sind. Durch D AND 127 wird somit 
das siebte Bit in D gelöscht. 

Die Tabelle 1 zeigt die für unsere 
Zwecke wichtigsten Register des 
Video-Chips sowie deren Funktion. 

Die folgende Tabelle 2 verdeut- 
licht, wie die Register verändert 
werden können. Mit dem PEEK- 
Befehl wird der Inhalt der Speicher- 
adresse abgefragt. Der AND-Befehl 


löscht nun einen Teilbereich und mit 
OR X wird zuletzt ein neuer Wert an- 
geknüpft. 

Außerdem gibt die Tabelle 2 die 
Originalwerte für die Variable X an, 
sowie — in Klammern — den zulässi- 
gen Zahlenbereich. 

Die Adressen 36864/36865 zen- 
trieren die Bilddarstellung auf dem 


Fernsehgerät oder Monitor. Mitdem 


Basicprogramm »BILD ZENTRIE- 
REN« (Listing 1) können Sie dies te- 
sten. Der Bildausschnitt wird mit 
den CursorTasten verschoben. 
Falls Sie die RETURN-Taste 
drücken, zeigt das Programm die 
notwendigen POKE-Befehle für die 
letzte Einstellung und setzt den Bild- 


schirm zuletzt wieder in den Aus-- 


gangszustand urück. 

Das Programm »BILDSCHIRM- 
FORMAT« (Listing 2) verändert die 
Adressen 36866/36867. Mit den 


Bild 4. Ein weiteres Beispiel für die Anwendung der neuen Grafikbefehle 





Cursor-Tasten wird die Anzahl der 
Zeilen beziehungsweise die Anzahl 
der Zeichen pro Zeile verändert. 
Auch hier können Sie durch 
Drücken der RETURN-Taste die er- 
forderlichen POKE-Befehle für die 
letzte Einstellung ermitteln. 

Die Bilder | und 2 zeigen zwei ge- 
änderte Bildformate mit den dazu- 
gehörigen POKE-Befehlen. 


Zwischen verschiedenen 
Bildschirmbereichen 
umschalten 


Das Register 36869 legt die Ädres- 
sen für den Zeichensatz und den 
Bildschirmspeicher fest. Die Tabel- 
le 2 zeigt vier POKE-Befehle mit den 
entsprechenden Bildschirm- 
Startadressen. Falls Sie eine Ände- 
rung durchführen, müssen Sie dem 
Computer die neue Startadresse in 
dem Zeiger 648 mitteilen. Außer- 
dem müssen noch 25 weitere Zeiger 
(MSB der Zeilenanfänge) geändert 
werden. Durch SYS 58778 führt der 
Computer die notwendigen Berech- 
nungen aus. Die POKE-Befehle in 
die Adressen 52/53 begrenzen den 
oberen Speicherbereich und schüt- 





‘zen so das Bild-RAM vor dem Über- 


schreiben durch Basic-Variablen. 
Die mit einem Doppelkreuz » #« 
gekennzeichneten Adressen gelten, 
falls die Bildadresse zusätzlich um 
512 Byte nach unten verschoben 
wurde. Diese »Feinverschiebung« 
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erfolgt durch das siebte Bit der 
Adresse 36866. Die Tabelle 2 zeigt 
die beiden POKE-Anweisungen, mit 
denen diese Umschaltung — bei- 
spielsweise zwischen zwei Text- 
oder Grafikseiten — durchgeführt 
wird. 

Das Programm »BILD-RAM« (Li- 
sting 3) verdeutlicht dies. Die Pro- 
grammzeile ll schützt den oberen 
Speicherbereich. Mit GOSUB 80 
wird die erste Seite »vorgeblendet«. 
CHR$(147) löscht die Seite. Zuletzt 
wird der Text »ERSTE SEITE« ge- 
druckt. Die Zeilen 40 bis 42 wieder- 
holen den Vorgang für die zweite 
Seite, Die Programmzeilen 50 bis 61 
schalten nun — mit einer Verzöge- 
rung — abwechselnd die beiden 
Testseiten ein. So schnell und flim- 
merfrei kann dies kein anderes 
Commodore-System. 

Falls Sie nach dem Umschalten 
mit dem Register 36866 die Zeile 
»POKE 648,.....SYS 58775« weglassen, 
wird sich die Bildanzeige zwar än- 
dem; PRINT-Befehle gelangen je- 
doch weiterhin in die alte — nun un- 
sichtbare — Seite. 


Eigene Zeichen definieren 


Aus der Tabelle | kann man able- 
sen, daßnurdie oberen vier Bits der 
Adresse 36869 das Bild-RAM ver- 
schieben. Die restlichen Bits bestim- 
men die Lage des Zeichensatzes im 
Speicher. Durch diein der Tabelle 2 
angegebenen OR-Verknüpfungen 
kann der Zeichensatz ins RAM ge- 
legt werden. Nur »OR 15« stellt eine 
Ausnahme dar, da hierdurch die un- 
teren 128ZeichenausdemRAM, die 
oberen — invertierten — Zeichen 
weiterhin aus dem ROM geholt wer- 
den. Diese Zeichen erscheinen 
dann aber »nichtinvertiert«, 

In dem Programm »PROG. ZEI- 
CHENSATZ« (Listing 4) werden die 


Tabelle 2. So können die Register aus Tabelle 1 verändert werden 


D=36864 / X: (0-127) / Orig. 12 

_ POKED (PEEK(D) AND 128) ORX 

D=36865 / X: (0-255) / Orig. 38: 
POREDX 

D=36866 / X: (0-27) / Orig. 150 
POKE D(PEEK(D) AND 128) ORX 
POKE DPEEK(D)OR 128: oben 
POKE D,PPEEK(D) AND 127 # unten 

D=36867 / X: (0-64) / Orig. 174 
POKE D(PEEK(D) AND 129) OR (2*X): 
POKRE DPEEK(D) OR I (ein) 
POKE D,PEEK(D) AND 254 (aus) 

D=36869 (# => untere 512 Byte 


POKE D.240:POKE 52/56/648,30 (#28) 
POKE D,224:POKE 52/56/648,26 (#24) 
POKE D,208:POKE 52/56/648,22 (#20) 
POKE D,192:POKE 52(56/648,18 (#16) 


POKE D(PEEK(D) AND 240) OR 15 
POKE D\(PEEK(D) AND 240) OR 14 
PORE D,(PEEK(D) AND 240) OR 13 
POKE D(PEEK(D) AND 240) OR 12 
POKE D(PEEK(D) AND 240) OR 11 
POKE D(PEEK(D) AND 240) OR 10 


Beispiel: POKE D,PEEK(D), 208+14 


notwendigen Änderungen in der 
Programmzeile 30 vorgenommen. 
Nach »POKE 36869,240« lautet die 
Startadresse des Bildschirm-RAMs 
7680. Der Wert»-+ 15« verschiebt den 
Zeichensatz zur Ädresse 7168. 

Im einzelnen schreibt das Pro- 
gramm den gesamten Zeichensatz 
des VC 20 aufden Bildschirm. Dabei 
werden die Zeichen durch »POKE 
38400 +1,O«in der Farbe Schwarz ge- 
druckt. Die Zeile 30 verändert dann 
die Zeiger, so daß die ersten 128 Zei- 
chen den zufälligen Inhalt des 
Zeichensatz-RAMs wiedergeben. 
Der Zeichensatzspeicher wird dann 
in den folgenden Zeilen gesetzt und 
anschließend gelöscht. Zuletzt wer- 


Tabelle 1. Einige wenig bekannte, aber recht nützliche Register des VIC-Chips. 


Adresse / 
BIT: 7 


36864 = = 
36865 = VZ 
BA 


36866 = 


36867 = 


36869 = 


AR ran 


: Horizontal-Zentrierung 
: Vertikal-Zentrierung 

: Bildschirm-Ädresse 

: ZEichen pro Zeile 

: ZeiLen-Änzahl 

: Matrix: (8*8 / 8*16) 

: Bildschirm-Ädresse 

: Zeichensatz-Adresse 





Horizontal-Position 
verschieben. 
Vertikal-Position 
verschieben. 

Anzahl Zeichen 

pro Zeile. 

Adresse des Bildschirm-RAM 
um 512 Byte verschieben. 


Anzahl der Zeilen ändern. 


Einfache oder doppelte 
Matrix einstellen. 


Bildschirm-Adresse: 
1680  (#7168) 
6656 (#6144) 
5632 (#5120) 
4608 (#4096) 


Zeichensatz-Adresse: (von-bis) 
7168-8191 () 
6144-8181 

5120-7168 

4096-6144 

3072-5120 (2) 
2048-4096 (2) 


(l) invertierte Zeichen vom ROM 
: (2) mit 3 KByte-Erweiterung 
=> Bildschirm-Adresse: 5632-6143 
=> Zeichens. -Adresse; 6144-8191 





den noch die Originalzeichen aus 
dem ROM in das RAM »gePOKEt«. 
Die Zeile 55 schaltet den program- 
mierten Zeichensatz wieder.ab. 


Falls Sie mit dem Zeichensatz ex- 
perimentieren wollen, brauchen Sie 
nur die letzte Zeile wegzulassen. Al- 
le »ungeshifteten« Zeichen können 
dann verändert werden. Zuerst 
müssen Sie jedoch ermitteln, wohin 
Sie »POKEn« müssen. Schreiben Sie 
hierzu das Zeichen, das Sie ändern 
wollen, links oben auf den Bild- 
schirm. Mit »PRINT PEEK(7680) 
kann dann der dazugehörige Code 
ermittelt werden. Der Wert mußnun 
mit acht multipliziert werden, da zu 
jedem Zeichen acht Byte gehören. 
Zuletzt müssen Sie noch die Start- 
adresse des Zeichensatzes (hier 
7168) hinzuaddieren. Für den Buch- 
staben »A« lautet die richtige Ädres- 
se 7174. POKEn Sie einmal den Wert 
129 an diese Adresse. In Bit-Form 
sieht das wie folgt aus: 129 gibt 
10000001. 

Genauso wird anschließend die 
erste Zeile in dem Buchstaben »A« 
aussehen; rechts und links außen je 
ein Pünktchen. Verändert Sie auch 
einmal die nächsten Adressen oder 
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versuchen Sie den Umlaut »Ä«zu ge- 
stalten. R 

Nach der Theorie nun ein prakti- 
sches Grafikbeispiel. Das ab- 
schreckend lange Basic- 
Ladeprogramm (Listing $) erweitert 
den Basic-Befehlssatz des VC 20 (oh- 
ne Speichererweiterung) um sieben 
weitere Anweisungen (COPY, 
GNEW, GON, GOFF, PLOT, TURN 
und CLEAR). Beim Eintippen sollten 
Sie jedoch die Zeilen 10 bis 32 durch 
das Programm »Prüfsumme« (Listing 
6) ersetzen. Nach RUN können Sie. 
mit Hilfe der Tabelle 3 überprüfen, 
ob Sie die Daten fehlerfrei eingege- 
ben haben. Die Prüfsummen gelten 
jeweils für eine DATA-Zeile. 

Nachdem Sie das Ladeprogramm 
(Zeile 10 bis 32) hinzugenommen ha- 
ben, muß das Programm unbedingt 
abgespeichert werden. Nach RUN 
sucht das Programm die Zeile 32 (al- 
so nicht weglassen) und überträgt 
die Daten ab dieser Adresse in den 
Speicher. Inden Programmzeilen 22 
bis 24 wird das Maschinenpro- 
gramm zuletzt in den oberen RAM- 
Bereich übertragen und durch die 
folgenden POKE-Befehle geschützt. 
Der NEW-Befehllöscht zuletzt das — 
ohnehin zerstörte — Programm. 

Mit SYS 6273 können die Befehle 
jetzt eingeschaltet werden. Bei 2173 
BYTES FREE nähert man sich natür- 
lich gefährlich dem 
Syndrom«. 

Nach dem Einschalten fällt zuerst 
ein neuer Cursor auf. In der inver- 


tierten Blinkphase des Cursors wird 


ein »graues« Viereck (COMMO- 
DORE-SHIFT »+«) gedruckt. Dies ist 
notwendig, da der Zeichensatz kei- 
ne invertierten Zeichen mehr um- 


»Sinclair- 
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bei den geshifteten Zeichen (außer 
den invertierten) gibt es einen Total- 
ausfall, aber bei 3,5 KByte Speicher- 
raum muß man schon gewisse Män- 
gel in Kauf nehmen. Mit »„GOFF« 
wird der Zeichensatz wieder ins 
ROM verlegt, so daß alle Zeichen 
sichtbar werden. | 

"Die drei Befehle PLOT/CLEAR/ 
TURN setzen, löschen oder invertie- 
ren einen Bildpunkt. Natürlich muß 
hinter den Befehlen eine X- und Y 
Koordinate angegeben werden. 
Beispielsweise »PLOT 176,1«; aller- 
dings führt diese Eingabe zu der 
Fehlermeldung X-ERROR (IN...), da 
der zulässige Wertebereich für die 
X-Koordinate 0 bis 175 (22 Zeichen * 
8— ])), und für die YKoordinate 0 bis 
183 (23 Zeichen * 8 — 1) beträgt. 

Der Wertebereich für die Koordi- 
natenangabe wird durch denletzten 
Befehl »GNEW« ermittelt, da das 
Bildschirmformat — wie zuvor be- 
schrieben — per Software geändert 
werden kann. Bei einer Einstellung 
mit beispielsweise 25 Zeichen pro 
Zeile kann der Wert für X zwischen 
O und 199 variieren. 

Außerdem löscht der GNEW- 
Befehl die 64 programmierbaren 
Zeichen sowie alle nichtinvertierten 
Zeichen auf dem Bildschirm. Da 
sich eine Grafik jedoch aus genau 
solchen Zeichen zusammensetzt, 
wird — falls sich eine Zeichnung auf 
dem Bildschirm befindet — diese 
gelöscht. Invertierte Zeichen wer- 
den hingeben nicht verändert, so 
daß Texte oder Beschriftungen er- 
halten bleiben. 
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In den Zeilen 10 bis 20 wird der 
Bildschirm gelöscht und der inver- 
tiere Text »TEXTPROGRAMME« 
geschrieben. Der Befehl »GNEVW« 
löscht den Grafikspeicher und den 
Bildschirm, wobei der invertierte 
Text unverändert bleibt. GON schal- 
tet dann die Grafik ein und in der 
Schleife wird eine Linie von links un- 
ten nach rechts oben (in der augen- 
blicklichen Schriftfarbe) gezeich- 
net. Sobald Sie eine Taste drücken, 
wird die Grafik wieder abgeschal- 
tet und Sie sehen eine schräge Linie 
aus Fragezeichen. 

Das Maschinenprogramm 
schreibt ein programmierbares Zei- 
chen auf den Bildschirm und ändert 
den Grafikinhalt dieses Zeichens. 
Anschließend wird geprüft, ob 
schon ein Zeichen mit genau dieser 
Grafik umdefiniert wurde. Ist dies 
der Fall, so wird das gefundene Zei- 
chen auf den Bildschirm gebracht 
und das alte Zeichen ist wieder frei. 
Wegen dieser Optimierungs- 
Routine »verbraucht« das Beispiel- 
programm nur ein Zeichen aus dem 
schmalen Vorrat von 64 program- 
mierbaren Zeichen. 

Da diese Optimierung über einen 
Vektor verläuft, kann sie durch »PO- 
KE 1,PEEK()—1« abgeschaltet wer- 
den. Lassen Sie das Testprogramm 
erneutlaufenundsehenSiesich das 
neue Ergebnis an. Mit »POKE 
1PEEK()+1« optimiert das Pro- 
gramm wieder, wird aber auch et- 
was langsamer. 

Durch »PEEK(0)« können Sie au- 
ßerdem abfragen, wie viele Zei- 


Tabelle 3. Prüfsummen zum Grafikprogramm 


faßt und deshalb der Cursor nicht 
mehr blinken würde. Durch das 
Grafikprogramm werden alle 64 
umgeshifteten Zeichen program- 
mierbar. Der Zeichensatzspeicher 
beginnt — wie in dem kleinen Text- 
programm »PROG. ZEICHENSATZ« 
(Listing 4) — an der Adresse 7168. 
Mit dem Befehl »COPY« wird der 
Originalzeichensatz aus dem ROM 


2436 
3010 
2741 


2823 





Doch nun ein Beispiel: chennoch frei sind. Hierdurch kann 


in diesen Bereich kopiert. 10 PRINT CHR$(147);CHR$(B); die Fehlermeldung »CHARACTER- 
Der Befehl »GON« schaltet nun 20 PRINT »TEST-PROGRAMM« ERROR (IN...)« verhindert werden. 
den Grafik-Modus ein. Dazuvorder 30 GNEW Falls PEEK(0) den Wert Null ergibt, 
Originalzeichensatz ins RAM kopiert 40 GON sollten keine Grafikbefehle mehr 
wurde, werden sich die ersten 64 50 FORI=0TO 1 folgen. 
Zeichen nicht verändern. Falls in- 60: PLOTII Ändern Sie nun die Zeile 60 des 
vertierte Zeichen auf dem Bild- 70 NEXT Testprogramms in »60 TURN I,I« und 
schirm stehen, werden diese jetzt 80 POKE 198,0:WAIT 198,1 erweitern Sie folgende Zeile mit 
nichtinvertiert wiedergegeben. Nur 90 GOFF »GOTO 50«. 
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Das Programm wird jetzt eine Li- 
nie ziehen, anschließend löschen 
und so fort, da die Bildpunkte jetzt 
fortlaufend invertiert werden. Falls 
Sie in der Zeile 40 den Befehle 
»GON« durch »GOFFi ersetzen, kön- 
nen Sie anschaulich verfolgen, wie 
das Programm — und speziell die 
Optimierung — arbeitet. 

Eine Besonderheit müssen Sie je- 
doch unbedingt beachten. Die neu- 
en Basicbefehle können nicht direkt 
hinter einer THEN-Anweisung ste- 
hen. Am einfachsten ist es, die bei- 
den Befehle dann durch einen Dop- 
pelpunkt (..THEN : COPY) zu tren- 
nen. 


Listing 1. »Bild zentrieren« 


10 REM s#23#33 BILD ZENTRIEREN se222223 
15 3 
20 H=12 
25 POKE 198,0 ı WAIT 198,1 : GET A® 
30 IF AS=CHRSL 13 THEN &0 
35 IF A®=CHRE( 17) AND V<255 THEN Vev+t 


: v-58 


40 IF A$S=CHRS(145) AND V>0 THEN V=V-1 
45 IF A$=CHRS( 29) AND H<235 THEN H=H+1 
50 IF AS=CHR$ (157) AND H>1 THEN H=H-1 
55 POKE 36864,H ıPOKE 36855, V:60T0 25 
60 POKE 36864, 12:POKE 34855, 38 

65 PRINT "FOKE 36864 ‚";H 

70 PRINT "POKE 35845 ,„";V 

READY. 


Zuletzt eine Grafik-Anwendung. 
Die Bilder 3und 4 zeigen, welcheEr- 
gebnisse mit der Grafik-Erweite- 
rung möglich sind. Das Basicpro- 
gramm »FUNKTIONS-PLOT%k (Listing 
D vereinfacht das programmierte 
Plotten von Funktionen doch erheb- 
lich. 

Nachdem Sie das Programm ein- 
gegeben und gestartet haben, wer- 
denSie nach dem Wertebereich ge- 
fragt. Anschließend wird die Bild- 
umrahmung gezeichnet. Die Größe 
sowie die Position des Diagramms 
auf dem Bildschirm ist durch die Va- 
riablen Unten, Oben, Rechts und 
Links (UOR,L)in der Zeile 110 festge- 
legt. Die Zeilen 170 bis 230 berech- 
nen nun das Minimum sowie das 
Maximum der Funktion. Außerdem 
werden die Werte in das Feld Y(A) 
übertragen. Die Variablen MI und 
MA werden in Zeile 250 auf vier 
Nachkommastellen begrenzt. Diese 
Werte sowie die Funktion selbst 
werden nun (invertiert) im unteren 
Bildteil gedruckt. Nachdem die 
Funktion grafisch dargestellt wurde, 
läuft das Programm in Zeile 390 inei- 
ner Warteschleife. 

Drücken Sie jetzt eine Taste, so ge- 
langen Sie in ein Mini-Menü. Sie kön- 
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nen nun eine neue Funktion einge- 
ben oder die alte mit neuen Werten 
untersuchen. 

Eine neue Funktion wird in der 
Zeile 450 mit INPUT A$ übergeben. 
Salopp gesagt, programmiert sich 
der Copmputer in den folgenden 
Zeilen selbst. Wie das? 

Zuerst wird der Bildschirm ge- 
löscht und in der obersten Zeile die 
Zeilennummer 190 und der String 
A$, der die neue Funktion enthält, 
gedruckt. Die Zeile 460 druckt dar- 
unter die Nummer 190 und einen 
PRINT-Befehl. Anschließend folgt 
ein Anführungszeichen, dann die 
Funktion und schließlich wieder ein 
Anführungszeichen. Zuletzt wird in 
der dritten Bildschirmzeile der Be- 
fehl»RUN« gedruckt. Jetzt könnte auf 
dem Bildschirm der folgende Text 
stehen: 

190 Y=COS(X) 
290 ?"’Y=COSKX)"” 
RUN 

Wäre das Programm hierzu Ende, 
so müßten Sie nur die HOME-Taste 
drücken und der Cursor würde auf 
der Zeile 190 stehen. Drückt man 
jetzt RETURN, so wird diese Zeile 


Listing 2. »Bildschirmformat« 


10 REM ##34#4 BILDSCHIRN-FORMAT z822288 
15 3 
20 V=46 : H=22+128 


25 POKE 198,0 ı WAIT 198,1 = GET AS 


30 IF AS=CHRSL 15) THEN &0 
s5 IF AS=CHRS( 17) AND V<100 THEN VeV+2 


40 IF AS=CHRS(145) AND v>2 
45 IF AS=CHRS( 29) AND H<155 THEN H=H+1 
=0 IF AS=CHRS(157) AND H>128 THEN H=H-1 
55 FOKE 36855,H :POKE 36867,V :GOTO 25 
&0 POKE 55867,45:POKE 36866, 150 

65 PRINT "POKE 36866 ‚„";H 

70 PRINT "POKE 36857 „";V 

READY. 
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Listing 3. »Bild-RAM« — Umschalten zwischen 
zwei Bildschirmseiten 


1 REM #838 BILD-RAM 23088 
2? 

10 D=368655:P1=30:P2=28 
11 POKE 52,P2:POKE 56,P2 


31 PRINT CHRS(147) PRINT 
32 PRINT" ERSTE SEITE” 

35 3 

40 G0OSUB 90 

41 PRINT. CHRE (147): PRINT 
#2 PRINT” ZWEITE SEITE” 
“5: 

50 FOR Z=0 TOD 300:NEXT 

51, GOSUB 

60 FOR 1-0 TO 300:NEXT 
61 60SUB 90 ı6070 SO 
70 

80 FOKE D,PEEK(D) DR 128 
81 POKE 548,P1:15YS 58775 
82 RETURN 

85 ı 

90 FOKE D,PEEK(D)I AND 127 
91 POKE 648,P2:ı5Y5 598775 


einprogrammiert. Ein erneuertes 
RETURN übernimmt die Zeile 290 in 
das Programm und beim dritten RE- 
TURN wird der Befehl RUN ausge- 
führt. Da sich der Computer bis zu 
neun Tastatureingaben »merken« 
kann, brauchen Sie diesen Ablauf 
nicht »von Hand« einzugeben. Der 
erste POKE-Befehl in der Zeile 470 
sagt dem Computer, daß — angeb- 
lich — sechs Tasten gedrückt wor- 
den sind. Zuerst »‚CURSOR HOME« 
(POKE 631,19), und dann fünfmal 
»RETURN« (Zeile 480). Nach dem 
END-Befehl führt er diese — unter- 
geschobenen — Eingaben aus, pro- 
grammiert die beiden Programm- 
zeilen ein und startet sich zuletzt wie- 
der mit dem RUN-Befehl. 

Dieses Verfahren ist übrigens 
sehr praktisch, fallsman ein Maschi- 
nenprogramm in DATA-Zeilen um- 
wandeln muß. Vorausgesetzt das 
notwendige Programm ist fehlerfrei, 
kannmaneigentlichsichersein, daß 
es der Basic-Lader anschließend 
auch ist. 

Wie Sie an dem Funktions-Plotter 
sehen können, ermöglicht die Gra- 
fikhilfe die Programmierung auch 
komplexerer Grafiken in einfacher 
und überschaubarer Form. Da die 
Erstellung der Grafik recht schnell 
erfolgt, ist eine große Vielfalt von 
Anwendungen denkbar. 

(Heino Verder/ev) 


Listing 4. »Programmierbarer Zeichensatz« 
10 REM #ss3#333 PROG. ZEICHENSATZ #s83238 
zPOKE 56,26 


20 FOR I=0 TO 255 :POKE 7680+1,1 
25 POKE 58400+I,0 NEXT 

30 POKE 356869, 240+15 

35 FOR I=7168 TO 7679 sPOKE 1,255: NEXT 
40 FOR 1=7158B TO 7679 :POKE 1,0 :NEXT 
45 FOR I=0 TO S11 :sC=PEEK (32768+1) 
SO FOKE 7168+I,C 
55 POKE 36859, 240+0 
READY. 


ıNEXT 


Listing 6. Prüfsummenprogramm zum Basic- 
Lader aus Listing 5. Das Zeichen » a « in Zeile 
28 ist der Hochpfeil (»1«) 


10 REM s32222228 PRUEFSUMME sr22222233 
12 7D=-50:A=I:FOR I=0 TO BIS:READ As 

14 ZL=PEEK (60) +PEEK (61) 82551D=O 

15 IF ZL=ZD THEN 20 | 

18 PRINT "ZEILE"32D;C : ZD=-ZL =: C=-O 

20 FOR L=1 TO 21 IF LEN{ASI<ZTHEN As="Oo"+As 
22 WE=MIDS(AS,L,1):W=0: IF WS=""THEN 24 
24 W=ASC(WS)I-48 zIF W>9 THEN WehW-7 
26 : 

28 D=D+Ws1&”(2-L) NEXT 5 C=C+D ı S-S+1 
30 NEXT : PRINT "ZEILE";2D,C z END 


32: 
SO DATA EA,EA,EA,78,49,BC,8D,14,3,A9... 
READY. 
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Listing 5. Basic-Ladeprogramm zur Befehlserweiterung 


FOR I=4096 TO 9999: IF PEEK{II<>42THEN NEXT 
A=I:FOR I=0 TO 896:READ A$=:D=0:PRINT"":I 
FOR L=1 TO 2:IF LEN(A$)<ZTHEN As="0"+A$ 
W$=MIDS(A$,L,1)zW=0: IF WS=""THEN 18 

W=ASC (W$) -48 zIF W>9 THEN W=W-7 


D=D+W316”(2-L) :NEXT=POKE I+A,D:NEXT 

FOR I=0 TO 896:D=PEEK(A+I):POKE 6272+1,D:NEXT, 
POKE 51,128 > POKE 52,24 

POKE 55,128 : POKE 56,24 :NEW 


REM usrunaauRK 

DATA EA,EA,EA,78,A9,BC,8D,14,3,A9,18,8D,15,3,A9,18,8D,8,3,A9,19,8D,9 
DATA 3,A9,11,85,1,A9,1B,85,2,8D,F2,1B,58,60,78,A9,BF,8D,14,3,A9,EA,8D 
DATA 15,3,A9,E4,8D,8,3,A9,C7,8D,9,3,58,60,AD,F2,1B,F0,D,CE,F2,1B,A4,DS 
DATA B1,D1,8D,F1,1B,8D,F0,1B,A9,18,48,A9,DB,48,8,8,8,8,4C,BF,EA,AE,S 
DATA 90,E8,D0,0,A4,D3,A6,CC,DO,2E,AD,F1,1B,F0,8,BE,F1,1B,B1,D1,8D,FO 
DATA 1B,A5,C6,F0,E,A5,CB,C9,1B,F0,5,EE,F2,1B,D0,9,EE,F1,1B,A9,E6,A6,CF 
DATA DO,3,AD,FO,1B,D1,D1,F0,2,91,D1,4C,18,EB,A9,7,85,58,A9,0,48,AA,CA 
DATA A0,0,C8,E8,BD,AB,1B,FO,F,D1,7A,F0,F5,18,68,69,8,C6, 58, DO,E8,4C,E4 
DATA C7,68,88,98,18,65,7A,85,7A,90,2,E6,7B,BD,AC, 1B,85,F7,BD,AD, 1B,85 
DATA F8,20,55,19,4C,18,19,6C,F7,0,A2,FF,D0,2,A2,F0, 8E,5,70,60,A0,0,A2 
DATA 2,84,62,84,64,A9,80,85,63,A9,1C,85,65,B1,62,91,63,C8,D0,F9,E6,63 
DATA E6,65,CA,DO,F2,60,AD,2,90,29,7F,8D,F5,1B,A,A,A,8D,F4,1B,AD,3,90 
DATA 29,7E,A,A,8D,F3,1B,CE,FS,1B,A9,1C,85,63,A9, 1E,85,65,A0,0,84,62,84 
DATA 84,A2,1,A9,0,91,62,B1,64,30,4,A9,A0,91,64,C8,DO,F1,E6,63,E6, 65, CA 
DATA 10,ER,A2,3F,86,0,A2,7F,A9,0,90,50,3,CA,10,FA,60,A2,0,2C,A2,2,2C 
DATA A2,4,BD,E0,1B,80,40,3,BD,E1,1B,8D,41,3,20,73,0,20, 8A, CD, 20,F7,D7 
DATA A0,58,A6, 15,D0,29,8E£,43,3,A5,14,8D,42,3,CD,F4,1B,B0,1C,20,79,0,20 
DATA FD,CE,20,8A,CD,20,F7,D7,A5,15,D0,8,AD,FS,1B,58,E5,14,B0,17,A9,59 
DATA D0,2,A9,58,20,D2,FF,A9,2D,20,D2,FF,20,7A,C6,C8,A9,6B,40,67,C04, AA 
DATA 20,98,1B,8E,45,3,A9,1E,85,5B,A9,0,C0,0,F0,B,18,6D,F5,1B,70,2,E6 
DATA 5B,88,D0,F5,85,5A,AE,42,3,20,98,1B,AD,43,3,F0,5,98,18,67,20,AB,A9 
DATA 0,E8,38,6A,CA,DO,FC,86,FD,80,44,3,B1,5A,8D,47,3,30, 15,C5,0,90, 11 
DATA AA,BD,50,3,D0,6,B1,5A,C5,0,B0,3A,DE,50,5,E6,FD,AS,FB,F0,9,C6,FB 
DATA As. FB,BD,E8,3,D0,11,A5,0,D0,B,58,A9,E6,A0, 18,20, 1E,CB,4C,22,1A,C& 
DATA 0,91,5A,AA,AS,5A,18,69,0,85,58,A5,5B,69,78,85,57, AD,86,2,91,58,8A 
DATA 78,85, FC,8C,46,3,A2,0,86,59,4,26,59,A,26,59,A,26,59,18,69,0,85,58 
DATA A5,59,69,1C,85,59,AS,FD,F0,24,A9,0,85,5E,AD,47,3,A,26,5E,A,26,5E 
DATA A,26,5E,18,69,0,85,5D,A5,5E,69,1C,85,5E,A0,7,B1,5D,71,58,88, 10,F9 
DATA AC,45,3,AD,44,3,20,8A,1B,91,58,58,6C,1,0,60,78,A0,7,84,FD,B1,58 
DATA 99,E0,3,D0,2,C6,FD,88,10,F4,E6,FD,D0,4,A9,A0,D0,24,A9, 1E,85,5E,A9 
DÄTA 0,85,5D,A2,40,D0,42,A0,7,E4,FC,F0,3C,E4,0,F0,48,B1,5D,D7,E0,3,DO 
DATA 31,88, 10,F6,FE,50,3,8A,AC,46,3,91,5A,A6,FC,BD,50,3,F0,5,DE,50,3 
DATA 8A,E6,0,C5,0,F0,9,06,0,A6,FB,9D,E8,3,E6,FB,A0,7,A9,0,71,58,88, 10 
DATA FB,30,10,A5,5D,38,E9,8,B0,2,C6,5E£,85,5D,CA,E4,0,D0, AE,58,60,6C,40 
DATA 3,11,58,60,51,58,60,49,FF,31,58,60,A0,0,8A,10,4,A0,10,29,7F,AA,S8 
DATA E9,8,90,3,C8,D0,F7,60,50,4C,4F,54,0,D1,19,0,54,55,52,4E,0,D4,19 
DATA 0,43,4C,45,41,52,0,D7,19,43,4F,50,59,0,62,19,0,CB,4E,0,58,19,0,0 
DATA 0,CB,46,46,0,5C,19,0,0,47,42,0,81,19,8D,1B,90,1B,73,1B,43,48,41 
DATA 52,41,43,54,45,52,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


Listing 7. Basicprogramm »Funktions-Plot« zur Demonstration der neuen Grafikbefehle 


CURSOR-CODE: PRINT"C" => CLEAR HOME 270 T2=LEN{STRE(X1))-LEN(STRE(MI)) 
“H" => CURS. HOME 280 IF T2<K THEN Ti1=-T2:T2=K 
"D" => CURS. DOWN 290 PRINT "Y=SIN(X)+S5IN(22X)" 
"R" => REVERSE 300 PRINT TAB{T1)5 "RD"3X13"<X<";X2 
PRINT TAB(T2I;"R" ;3MI3"<Y<";MA 
IF MI=>K AND MA=>K OR MI<=K AND MA<=K THEN 340 
CLR: INPUT"CR WERTEBEREICH";X1,X2 ® 330 P=U+3+INT{(Y{NI-MII/SY)SFOR A=L TO R:PLOT A,PıNEXT 
U=80: 0=183:1L=0:R=175:D=R-L:K=10000 340 IF Xi=>K AND X2=>K OR X1<X=K AND X2 <=K THEN 560 
GNEW:GON:DIM Y(D)Is IF X1=X2 THEN 100 350 P=INT(ABS(X1)/SX):FOR A=U TO O:PLOT P,A:NEXT 
FOR A=L TO R:PLOT A,U:PLOT A,O:NEXT 360 : 
FOR A=U TO O:PLOT L,A:PLOT R,A:NEXT 370 FOR A=L TO RıP=U+3+INT((Y(A-LI-MII/SY) 
IF X1>X2 THEN Z=-X1:X1=X2:X2=7 380 PLOT A,P:IF PEEK(K) THEN NEXT 
: 390 PDKE 198,0:WAIT 198,116ET A$ 
SX=(X2-X1)/DrX=X1:MI=1ES8: P=MI:MA=-MI 400 PRINT "CR F => FUNKTION" 
FOR A=0 TOD 410 PRINT "R W => WERTEBEREICH" 
Y=SIN{X)+SIN (28%) 420 WAIT 198,1:GET As 
IF Y>MA THEN MA=Y 3 430 IF At= "W" THEN 100 
IF Y<MI THEN MI=Y 440 IF AS<>"F” THEN 420 
IF ABS(YI<P THEN P=ABStY)zN=A 450 COPY: INPUT "C FUNKTION"ZA$:PRINT "C 190";5A® 
YiA)=Yz:X=X+SX:NEXT:SY=(MA-MI)/ (0-U-5) 460 PRINT"290 ?"3CHR$ (34) AS; CHRS (34) 
s 470 PRINT "RUN ":POKE 198,6:POKE 6351,19 
MI=INT (MI&K) /K:MA=INT (MASK) /K:K=0 480 FOR I=632 TO 656:POKE 1,13:NEXT:END 
PRINT "SDDDDDDDDDDDDDDDDDR "3:T1=K READY. 
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chern möglich. 





werk gerade erst gekauft ha- 

ben, werden Sie sicher zu Be- 
ginn einige Schwierigkeiten haben, 
es auch richtig einzusetzen. Das er- 
ste, was man macht, wird das Laden 
und Abspeichern von Programmen 
sein. Daß Sie mit der Floppy noch 
viel mehr machen können, wissen 
Sie ja auch schon längst. Und sicher 
fallen Ihnen einige Möglichkeiten 
ein, die Sie wohl gerne realisieren 
möchten. Meistens sind das am Än- 
fang eine Adressenkartei, eine 
Schallplattensammlung erfassen 
oder etwa seine Dias ordnen und 
auswerten. Wir möchten Ihnen den 
Einstieg etwas erleichtern und Sie 
Schritt für Schritt mit den Methoden 
der Datenverwaltung vertraut ma- 
chen. 

Es gibt verschiedene Ärten von 
Dateien und unterschiedliche Me- 
thodenihrer Verwaltung. Hauptsäch- 
lich sind das die sequentielle, diere- 
lative Datei und der Direktzugriff auf 
die Diskette. 

Gerade für Anfänger ist die se- 
auentielle Datei eine geeignete Me- 
thode, Daten zu verwalten. Diese 
Einfachheit ist allerdings verbunden 
mit einer gewissen Langsamkeit. 
Aber wenn sie sich erst einmal mit 
der sequentiellen Datenspeiche- 
rung auskennen, wird auch die rela- 
tive Datei und die Direktzugriffsme- 
thode kein großes Problem mehr für 
Sie darstellen. Außerdem gibtesge- 
nügend Probleme, für die eine se- 


W enn Sie sich das Diskettenlauf- 


Als es noch keine Diskettenlaufwerke gab, standen 
lediglich Bandgeräte zur Datenspeicherung zur Verfü- 

gung. Und auf Bändern ist nur sequentielles Spei- 
Auch mit der Floppy kann man Daten 
sequentiell speichern, obwohl der Vorteil der Diskette, 
der direkte Zugriff auf Daten, nicht ausgenutzt wird. 
















quentielle Datenspeicherung völlig 
ausreichend ist. 

Zuerst sollen Sie einige wichtige 
Begriffe kennenlernen. 

Sequentiell bedeutet hintereinan- 
der. Älso alle Daten, die wir benut- 
zen, werden hintereinander, se- 
quentiell auf der Diskette gespei- 
chert (bei Kassetten ist eine andere 
Methode gar nicht möglich). 

Immer, wenn man von und über 
Dateien spricht, werden solche Vo- 
kabeln wie FELD, DATENSATZ oder 
auch RECORDS genannt. Was ist 
das eigentlich? 


Der Computer ersetzt 
Karteikarten 





Die meisten von Ihnen kennen ei- 
ne Karteikarte. Auf dieser Karteikar- 
te können mehrere Eintragungen 
stehen. Angenommen, Sie besitzen 
eine Adressenkartei, dann stehen 
auf jeder Karteikarte normalerwei- 
se der Vorname, Nachname, Straße, 
Postleitzahl und Ort und die Telefon- 
nummer, manchmal auch der Ge- 
burtstag und andere wichtige Da- 
ten. Das sind die einzelnen Felder 
eines Datensatzes. Die Gesamtheit 
aller Felder auf einer Karteikarte 
bezeichnet man als einen Datensatz, 
also alle Daten, die zusammengehö- 
ren. Somit besteht ein Datensatz aus 
mehreren Feldern. Und der Begriff 





Record ist nur die englische Be- 
zeichnung für Datensatz. Alle Kartei- 
karten, also alle Datensätze, nennt 
man eine Datei. Damit wären die 
wichtigsten Begriffe geklärt und wir 
können zum Wesen der sequentiel- 
len Datei kommen. 

Wie schon gesagt, werden bei 
dieser Dateiart alle Daten hinterein- 
ander (sequentiell) auf der Diskette 
gespeichert. Das sieht dann zum 
Beispiel so aus wie in Bild 1. 

Angenommen, unsere Datei be- 
sitzt schon 200 Adressen und eine 
Adresse enthält den Namen Hu- 
ber, Anton. Wollen wir jetzt seine An- 
schrift wissen, so muß die Datei von 
Anfang an durchsucht werden, bis 
zu dem Datensatz, in der der Huber 
steht. Steht der gesuchte Name 
ziemlich am Ende der Datei, sokann 
die Suche einige Zeit in Anspruch 
nehmen; je größer die Datei, desto 
mehr Zeit beansprucht die Suche. 
Diese Suche, aber auch alle ande- 
ren Operationen wie Ergänzungen, 
Veränderungen oder Sortieren der 
Datei spielen sich im Speicher des 
Computers ab. Das bedeutet, daß, 
wenn man mit dieser Ädressendatei 
arbeiten will, zuerst die gesamte Da- 
tei von der Diskette in den Speicher 
geladen werden muß. Und am En- 
de, nach getaner Ärbeit, wird sie 
wieder auf die Diskette zurückge- 
speichert. 

Wenden wir uns dem Beispiel in 
Bild 2 zu. Es ist ein kleines und noch 
nicht einmal fertiges Adressen- 
Datei-Programm (die Funktionen 
»Suchen«, »Löschen« und »Ändernd 
sind noch nicht codiert worden. Je- 
doch kann sich jeder dieser Module 
selber schreiben. Auf eine Beson- 
derheit möchte ich gleich hinwei- 
sen. In den Zeilen 133 bis 135 stehen 
die Erklärungen der verwendeten 
Steuerzeichen, die diesmal codiert 
ausgedruckt wurden. Deswegen 
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CHRS (13) 
CHRS (13) 
CHRS (13) 


3. Datensatz FREE FR 4. Datensatz a 
- 


CHRS$ (13) 
CHRS$ (13) 
CHR$ (13) 
CHRS$ (13) 


In dieser Reihenfolge stehen die Daten in einer sequentiellen Datei (bezogen auf das Beispielprogramm) 


brauchen Sie nicht mehr mit der Lu- 
pe und viel Fantasie, die manchmal 
schwierig zu erkennenden Commo- 
dore-Steuerzeichen versuchen, zu 
interpretieren. Drücken Sie einfach 
die entsprechende Cursortaste (in- 
nerhalb der PRINT-Anweisung) 
wenn die Zeichen »CRR« und »CRL« 
im Listing erscheinen. Auf Ihrem 
Bildschirm sollten sie dann die ent- 
sprechenden Grafikzeichen erken- 
nen. GefälltIhnen diese Artder Dar- 


stellung? Wir würden geme Ihre 
Meinung dazu erfahren. 

Der Aufbau des Programms dürf- 
te nicht schwer zu durchblicken 
sein. Aber es gibt einige Programm- 
zeilen und -abschnitte, die man sich 
einmal näher anschauen sollte. 

Zeile 9110: Die Variable ST ist eine 
Statusvariable, die der C 64 und der 
VC 20 für sich beanspruchen. Hier 
gibt sie Auskunft darüber, ob das 
Dateiende erreicht ist. In diesem 
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CHRS$ (13) 
CHR$ (13) 


Fall wird nämlich das 6. Bit gesetzt (2 
hoch 6 ergibt 64). Da aber in dieser 
Systemvariablen auch andere Nach- 
richten abgelegt werden, die ande- 
re Bits beeinflussen und ST auch bei 
Dateiende einen von 64 ungleichen 
Wert zuweisen können, müssen wir 
mit der AND-Verknüpfung feststel- 
len, ob speziell dieses 6. Bit gesetzt 
1st 


Aus Sicherheitsgründen habe ich 
vor jedem OPEN-Befehl ein CLOSE 





1DD REM Oo HuNHHKERuEEHE Er an A 
ıi12D REM + ADRESSENDATEI 64 ’ER/& * ee 
12D REM HuuHuuENEE EEE en Ben - FROGRAMM ENDE - 
1320 : ER Tee ee 
151 REM *#*** STEUERZEICHEN ##%*** 1570 REM SS=2 WENN NICHT GESFEICHERT 
152 REM * E e + 1548 IF SS=1 THEN GDSUE S229 
En EEE ER ee a 1 
35 * < > \ + = v 
135 REM + <CRL> = EURSOR LINKS * 1570 : Bild 2. Kleine Adressdatei 
1365 REM * * 1588 : 
137 REM KREMER HIN DIE REMIS ee er 
138: : 2B1i® REM - ANZEIGEN GESAMTE DATEI 
180 Im Ry& (DI) NN# (DI) „SR#(DI) 50:0 ER See yo SEHE OEL Tat 
F- . (7 5 Ar 5 
1680 DIM FL&(DI) .OT$(DI),TE(DI 2948 IF L=® THEN GOSUE FRRD:REM LADEN 
178 FOKE 535281 d 2858 FOR I=1 TO ND 
1898 CLOSE 15: OPEN 1559,15 2858 :FRINT "<CLR> ANZEIGE DER DATEI 
10898 REM ------------- 77777 " 
1218 REM - MENUE _ 2885 :FRINT 
1920 REM ------------- 2078 :PRINT " NUMMER N TIRRINS 
19308 : 2075 :PRINT 
198428 FRINT "<CLR>" 2282 :FRINT " NAME = "NVECI)" "NNECI) 
1858 FRINT PRINT 2108 :FRINT " STRASSE : "SR#(I) 
1052 FRINT ADRESSENDATEI" 2118 :PRINT " FLZ/ORT : "PL£(I)" "OT$(ID) 
1078 FRINT aRINT 2138 :FRINT " TELEFON : "TE#(I) 
18382 FRINT " = FROSRAMMENDE" 2158 :FRINT :PRINT :PRINT 
1258 FRINT 2148 :FRINT " W= WEITER x = ENDE" 
i198@ FRINT " 1 = ANZEIGEN GESAMTE DATE 2178 :GET Rt: IF R+="" THEN 2178 
I" 2180 :IF R£f="xX" THEN 2208 
1118 FRINT 2190 NEXT I 
1128 PRINT " 2 = SUCHEN" 2200 RETURN 
ASBLERINE 2%, Su geeren 2502 ke 
3= RB DORT arnn REM m m m m a 
115D FRINT &B10 REM - EINGABE NEUE DATEN - 
11&0 FRINT " 4 = AENDERN" BOZBUREH = ne een er 
1178 FRINT uu38 : 
1138 FSINT " 5 = NEUE ADRESSEN EINGEBE #848 IF L=@ THEN GOSUE 9BHOR:REM LADEN 
N ersp un Yu 
1198 FRINT &B&B FRINT " EINGABE NEUE DATEN" 
12808 FRINT " = SPEICHERN" &078 FRINT :FPRINT 
1218 FRINT :FRINT :PRINT :FRINT 80875 ND=ND+1 
1228 FRINT "UAEHLEN SIE. &87& FRINT " NUMMER ";ND 
1229 GET Rf:IF Rt="" THEN 1238 &278 FRINT :FRINT 
ı248 IF Rr="X" THEN 1502 6282 INFUT "NACNNANE <CRRPZERR><CHR >. <CR 
1359 IF Rt="1" THEN GOSUB 2BRB:REM ANZ. L><CRL><CRL>"3NNE(ND) 
12608 IF Rr="2" THEN GOSUB 39922:REM SUCH 050 INPUT AVÖRNAME <ERRFSERRP<CRR>.<SCR 
1278 IF Rt="3" THEN GOSUB A4Q09:REM DEL L><ZCERL><CRL>?" 3 NVF#(ND) 
1282 IF Rt="4" THEN SISURB S@B@RRB:REM AEN 61828 INFUT "STRASSE ERCBRAELREIS RETTET 
1298 IF Rt="5" THEN SOSUB &QBB: REM NEU L><CRL><ERL>"3SR#(N 
1392 IF St="2" THEN GOSUR SAZB:REM SFEI 6119 INFUT en CRRILCRRILERR>. ZCR 
1312 GOTO 1228 L><ERL><CRL>";PLF(ND) 
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gesetzt, damitnicht durch einen Pro- 
grammierfehler ein »FILE OPEN 
ERROR» entstehen kann. Zum 
CLOSE-Befehl sei noch so viel ge- 
sagt, daß er unbedingt existieren 
muß. Sonst kann es vorkommen, daß 
nicht alle Daten auf die Diskette 
übertragen werden, und noch 
schlimmer, daß die Datei nicht ord- 
nungsgemäß geschlossen werden 
kann. Dadurch kann die gesamte 
Datei unrettbar verloren sein. Also 
Vorsicht. 

Wenn Sie sich das Programm et- 
was näher anschauen, könnten Sie 
über die Variablen »SS« und »L« stol- 
pern. Diese Variablen habe ich ein- 
gesetzt als»Flags«. Sie regeln, obein 
Aufruf dieses Menüpunktes sinnvoll 
ist und das entsprechende Unter- 
programm ausgeführt werden soll. 
Zum Beispiel verhindert die Varia- 
ble »L« in Zeile 8025, daß Daten ge- 
speichert werden, wenn die Datei 
noch gar nicht in den Speicher des 
Computers geladen wurde. Das 
würde nämlich bewirken, daß (in 


612@ INPUT "ORT <ERRSZCERR><SERR>.<CR 91902 INFUT# 1,TE#(I) 
L><ZCRL><ZERL>"SOT$(ND) 911@ IF (ST AND 64)<>64 THEN 9948 
8130 INFUT "TELEFON <CRRI<CRRYSCHRR>.<CR 97120 CLOSE 1 
L><ZERL><ZERL>"3 TE$CND) 9138 L=1:REM DATEI IST GELADEN 
&148 PRINT :PRINT 9140 RETURN 
&iS® FRINT "W = WEITERE ADRESSE X =EN 9158 : 
DE" 1808088 REM --------- 2222777 
&i6B GET Rt: IF R+="" THEN 6162 10018 REM - DISKETTENFEHLER - 
6170 IF R$="W" THEN 4050 18828 REM ------------ nn 
6175 SS-1:REM DATEN NEU EINGEGEBEN 128230 FRINT "<CLR>" 
&1828 RETURN 1225@ INFUT# 15,A1,A2F,A5,R4 
Sba8 Sen 1UBE8 HE ARTEN Eden ı1000:0 
IEM  ------------- 0000 = :G0TO 18 
2019 REM - SPEICHERN DATEI AUF DISK - 78 : 
BRSQIREM une 109065 PRINT 
8025 REM L=@ WENN NOCH NICHT GELADEN 12070 FRINT A1,A2$;A3;A4 
20:8 Lose. TUrAN1/8,2,"eronneese,szur 10858 ERINT In” 
1:0F "@; SSE,S,W" 18090 FRINT " I a 
sasa SOSUB 100nG:REN | BISKETTENFEHLER? IuOEE ERINT sPRINT.  n TENFERLER 
Sa70 PRIKTE 2,ND 10110 FRINT BEHEBEN SIE DEN FEHLI 
ı I= 18128 PRINT " € “ 
Sa8s :FRINT "<CLR> SFEICHERN DER DATE 198138 FRINT UNE EDRUEEREIISIE 
= 6 10148 PRINT " >> F <<" 
3885 :FRINT I" VON "ND 12158 GET R$:IF R$="" THEN 10158 
2290 :FRINT# 1,NV8(I) 1B1&@ PRINT "<CLR>" 
SIEQ :FRINT# 1,NN&(I) 18172 RETURN 
8112 :FRINT# 1,5R#(I) 10158 : 
8120 :PRINT# 1,PL$(I) 110808 REM ---------------- 2 
8150 :FRINT# 1,07#(1) 11212 REM - NEUE DATEI ANLEGEN 
8142 :FRINT# 1,TEF(I) 11028 REM ------------- 
8158 NEXT I 11239 : 
B1es SEO. REM LETZTEN D RN E 
=2; STAND GESPFEICHER 5 “ 
BIN SS RER T 11950, PRINT DIE DATEI EXISTIERT NOCH 
Se ne ned PRINT "N = NEUE DATEI 
901D REM - LADEN DER DATEI VON DISK - 11082 GET Rs: IF R$="" THEN 11080 SIE 
eo, TE ee 1100 IE Recyine THEN 11088 
A | 2 " „" 8 
9242 CLOSE 1:0FEN 1,8,2,"ADRESSE,S,R" 11 : 2. " 
9045 GOSUB 1ABQG:REM "DISKETTENFEHLER? 1l1eo EbR =1 N 1 By RDBERSETSN 
9945 IF A1<>Q@ THEN 9950 1116@ :PRINT# 1,"." 
3048 ı he I NDSENDSVEESBER? A ne „ Bild 2. Unsere kleine Adressendatei Ist nicht 
9049 FRINT "<CLR>"I" VON "ND 11200 RETURN ganz vollständig. Aber das ist zum Verständnis 
a EEE x ae $ 1) F auch nicht notwendig. Beachten Sie bitte die 
Sue INPUTE 1TSRE(T READY. Zeilen 131 bis 137 und 6080 bis 6130. Diese 
92882 INFUT# 1,FPL#(I) Symbole stehen anstelle der sonst so schwer zu 
9998 INPUT# 1,0T#(I) erkennenden Steuerzeichen. 
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diesem Fall die Datei »ADRESS«) 
überschrieben würde ohne es zu 
wollen; auf Diskette vorhandene Da- 
ten wären verloren. Älso eine reine 
Sicherheitsmaßnahme. 


Sicherheit ist Trumpf 


Die Variable »SS« verhindert, daß 
das Programm beendet wird, ohne 
neu eingegebene Daten vorher ab- 
zuspeichern. 

Zuletzt möchte ich noch auf einen 
Programmteil hinweisen, der ab Zei- 
le 10000 steht. Dieses Unterpro- 
gramm wird immer dann ange- 
sprungen, wenn eine Datei eröffnet 
wird. Es können nämlich auch dann 
Fehler auftreten, wenn das Pro- 
gramm sonst einwandfrei funktio- 
niert. Eskann zum Beispiel sein, daß 
sie eine schreibgeschützte Diskette 
benutzen wollen, um Daten abzu- 
speichern. Das funktioniert natür- 
lich nicht. Damit das Programm 
dann nicht abstürzt, wird jedesmal 





nach einem Öffnen eines Floppy- 
Kanals diese Routine angesprun- 
gen. Sie können dann im Fehlerfall 
das Problem beseitigen, ohne das 
Programm neu starten zu müssen 
und damit eventuell alle eingegebe- 
nen Daten zu verlieren. Der Fehler 
»62« in Zeile 10062 weist übrigens 
darauf hin, daß ein »FILE NOT 
FOUND ERROR« gemeldet wurde. 
In diesem Fall kann eine neue Datei 
angelegt werden (ab 11000). Man 
kann natürlich auch andere Fehler 
direkt abfragen. Schauen Sie nach 
im Floppy-Handbuch von Commo- 
dore. Dort sind alle Fehlermeldun- 
gen erklärt. 

Ich glaube, daß Sie viele Möglich- 
keiten finden werden, eine sequen- 
tielle Datei sinnvoll einzusetzen. Set- 
zen Sie sich hin und fangen Sie an zu 
programmieren und zu experimen- 
tieren. Erweitern Sie Ihr Wissen 
durch eigene Erfahrungen. Tippen 
Sie nicht nur ab, seien Sie kreativ! 


(Christian Schlüter/gk) 
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Castle of Doom 
ist ein Adventure, 


das es in sich 
hat. 

Man kann nicht 
nur drei 
verschiedene 
Versionen 
auswählen, es 
ist zudem gar 
nicht einfach, bis 
ans Ende durch- 
zustehen. Dazu 
brauchen Sie 
Geduld, eine 
gehörige Portion 
Phantasie 

und — viel Zeit. 
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unächst einige wesentli- 

che Informationen zum 
Ablauf des Spiels: 

Am Anfang des Spiels 
kann man sich für eine von 
drei verschiedenen Versio- 
nen entscheiden. Bei allen 
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KAEFIE 
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BERG 


STEILER WEG NACH OBEN 


Bild 1. Die Burg des Grauens 








Versionen ist das »Spielfeld« 
gleich, doch das Ziel, das es 
zu erreichen gilt, ist jeweils 
ein anderes. Die Komman- 
dos müssen jeweils aus zwei 
Worten bestehen, die durch 
Leerraum getrennt werden. 
Beide Worte können belie- 
big abgekürzt werden, doch 
man muß darauf achten, daß 
keine Mißverständnisse auf- 
treten. 


Das Programm beinhaltet 
eine kurze Anleitung, in der 
die wichtigsten Punkte der 
Befehlseingabe nochmals 
erwähnt werden. Zudem 
sind alle Verben, die der 
Computer versteht, aufge- 
führt. Wird dennoch ein 
Wort benutzt, das der Com- 
puter nicht kennt, so gibt er 
an, welches der eingegebe- 
nen Worte ihm unbekannt ist. 









Auf dem Bildschirm sind 
immer zu sehen: 
— eine Grafik, die den Ort 
zeigt, an dem man sich befin- 
det, 
— eine Liste der Gegenstän- 
de, die sich an diesem Ort 
befinden, 
— eine Liste der Gegenstän- 
de, die man besitzt. 

(Bernd Weißbecker/gk) 
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Der Gewinner des Listing des Monats 





Der Autor Bernhard Weiß- 


becker wurde am 29.10.1963 
in Gelnhausen geboren. Er 
machte sein Abitur, und ist 
seit Mitte 1983 bei der Bun- 
deswehr. Wie er zur Compu- 
terei kam, erzählt er selbst: 

Meine ersten Erfahrungen 
mit Computern machte ich in 
der Schule. Dort gab es ei- 
nen Computerraum, der mit 
einigen PETs bestückt war. 
Am Anfang zogen mich Spie- 
le wie »Space Invaders« dort- 
hin, doch bald erwarb ich 
auch erste Basic-Kenntnisse. 
Mein Beitritt zu einem 
Computer-Kurs, der nach- 
mittags auf freiwilliger Basis 
ablief, folgte. Dieser Kurs en- 
dete leider nach einem hal- 
ben Jahr schon wieder. Zu- 
dem zwang mich das nahen- 
de Abitur, meine Aktivitäten 
aufandere Gebiete zu verla- 
gern. 

Nun bin ich seit zehn Mo- 
naten bei der Bundeswehr 
und seitsieben Monaten stol- 
zer Besitzer eines Commo- 
dore 64. Da ich mich beson- 
ders für Abenteuerspiele in- 
teressiere, wollte ich unbe- 
dingt auch selbst einmal ein 
solches Spiel schreiben. 

Anden Abenteuerspielen, 
die gelegentlich in Compu- 
terzeitungen abgedruckt 
sind, ärgerte mich immer, 
daß man schon beim Abtip- 
pen des Programms unfrei- 
willig Informationen erhält, 
die das Lösen des Abenteu- 
erspiels dann oft wesentlich 
vereinfachen. Und miteinem 
Abenteuerspiel, das man 
einmal gelöst hat, kann man 
nicht mehr viel anfangen. 
Deshalb habe ich bei mei- 
nem Adventure drei ver- 
schiedene Versionen zur 
Auswahl gestellt, für die je- 
weils ein anderer Lösungs- 
weg gefunden werden muß. 
Zudem macht es die Art der 
Befehlsauswertung relativ 
schwer, aus dem Listing zu 
Informationen über den Lö- 
sungsweg zu kommen. 
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Abgerechnet wird mit dem G 64 


Sie wollen Ihren G 64 beruflich 
nutzen und suchen ein 


Programm, mit dem Sie Angebote und Rechnungen betriebsindividuell erstellen 
können. Dann sollten Sie sich das folgende Programm näher ansehen. 


ieses Fakturierungs- und 

Ängebotsprogramm ent- 
spricht DIN 5001 und ist für C 
64 und Epson-Drucker (mit 
Kreuzcodeinterface, zum 
Beispiel: WW Typ 9200) 
oder Typenradschreibma- 
schine Brother CE-60 bezie- 
hungsweise CE-70 geschrie- 
ben. Bei Verwendung der 
Schreibmaschine müssen 
die Steuercodes für die 
Druckersteuerung entspre- 
chend der Interface-Be- 
triebsanleitung (zum Bei- 
spiel Original-Interface IF-50 
von Brother oder WDT-Inter- 
face von Wicher Digitaltech- 
nik) abgeändert werden. Ei- 
ne gedehnte Schrift ist mit ei- 
ner Schreibmaschine natür- 
lich nicht möglich. 

Allgemeine Leistungen 
des Programmes: 
— vollkommen bildschirm- 
orientierte Programmfüh- 
rung 
— flexibler Umsatzsteuer- 
und Skontosatz 
— selbständige Datumsein- 
fügung für sämtliche Rech- 
nungen oder Ängebote des 
Tages 
— korrekte kaufmännische 
5/4-Rundung 
— Eingabe auch negativer 
Beträge (Gutschriften) mit 
Ausweis eines negativen 
Vorzeichens 
— Nullen-und Dezimalpunkt- 
unterdrückung bei ganzen 
Stückeingaben 
— Menüwahl der Arbeits- 
gänge und der Ädressenan- 
rede 
— selbstständige Absender- 
erstellung im Adressenfen- 
ster des Geschäftsbriefes 
— Menüwahl der Zahlungs- 
bedingungen 
— Korrekturmöglichkeit vor 
jedem neuen Eingabeblock 
— Ausgabe von deutschen 
Umlauten auf Monitor und 
Drucker 
— automatische Einstellung 
des Epson-Druckers auf 
Groß- und Kleinschrift und 
den deutschen Zeichensatz 
— Menüwahl einer eventuell 
gewünschten Quittierung 
(Barverkauf oder Nach- 
nahme) 
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— automatische Formularer- 
stellung und Formatierung, 
beliebige Anzahl von Kopien 
— 1] Zeile (Angebot) bezie- 
hungsweise 2 Zeilen (Rech- 
nung) frei formulierbarer 
Text 
— betriebswirtschaftlichund 
steuerrechtlich korrekte 
Umsatzsteuer- und Skonto- 
abrechnung 
— beliebiger Wechsel zwi- 
schen den Arbeitsarten. 
Leider hat dieses Pro- 
gramm einen kleinen Nach- 
teil: Aufgrund der Umlautge- 
nerierung für den Monitor (l. 
Block der 4 Basic-Blöcke) 
bleibt die Dimensionierung 
der maximal pro Arbeits- 
gang auflistbaren Artikel auf 
20 beschränkt, was im Nor- 
malfall allerdings in dieser 
Praxis ausreichen dürfte. Ei- 
ne Compilierung ist wegen 
desSpeicherplatzangebotes 
(Runtime-Modul würde das 
Programm auf mehr als 34 
Blocks vergrößern) eben- 
falls nicht möglich. Wem die 
noch ganz akzeptable Ar- 
beitsgeschwindigkeit (45 Se- 
kunden für Original plus Ko- 
pie auf Epson FX 80) nicht 
ausreicht, hatja die Möglich- 
keit, das Programm in blitz- 
schnelles Assembler umzu- 
schreiben. Derjenige, der 
das Programm nicht eintip- 
pen möchte, kann vonmirauf 
Bestellung und Übersen- 
dung des bisher verwende- 
ten Formulares für Rechnun- 
gen und Angebote das Pro- 
gramm individuell umge- 
schrieben auf Diskette erhal- 
ten. 


Der feine 
Unterschied 


Zum Schluß seinoch aufei- 
ne wichtige betriebswirt- 
schaftliche Kleinigkeit hin- 
gewiesen. Im Gegensatz zu 
vielen anderen Fakturier- 
programmen wird die je- 
weils gültige Mehrwertsteu- 
ernichtauchnoch auseinem 
eventuell anfallenden Porto 
berechnet, da Postgebühren 
umsatzsteuerfrei sind. Eben- 


so bleibt beider Skontierung 
das Porto unberücksichtigt, 
denn eine Skontierung be- 
dingt in der Buchhaltung im- 
mer eine Umsatzsteuerkor- 
rektur, und eine Umsatzsteu- 
erkorrektur, die Umsatzsteu- 
er aus umsatzsteuerfreien 
Leistungen korrigiert, ist bei 
einer Betriebsprüfungdurch 
das Finanzamt im besten Fall 
peinlich. Eine langfristig viel 
böser ausgehende Konse- 
quenzausder meist falschen 
Skontoberechnung ist die 
Verfälschung der Kalkula- 
tionsfaktoren oder Hand- 
lungskostenzuschläge durch 
den Einfluß des Buchhal- 
tungskontos »Kundenskonti« 
auf die Kostenrechnung. Fol- 
ge: Aufgrund verfälschter 
Kalkulationsunterlagen ent- 
stehen unrealistische Ver- 
kaufspreise. 

Abschließend sei noch er- 
wähnt, daß die Umlautgene- 
rierung bei Verwendung ei- 
ner 80-Zeichen-Karte (zum 
Beispiel von Roos) mit festem 
externen Zeichensatz zwar 
läuft, aber keine Umlautdar- 
stellung auf dem Monitor zu- 
läßt. (Gerhard Schröter/rg) 


Lebenslauf 
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Ich bin 31 Jahre alt, Lehrer 
für Betriebs-, Volkswirtschaft 
und Englisch an der kauf- 
männischen Schule im Be- 
rufsschulzentrum in Bibe- 
rach/Riß, seit Mitte März 
1984 im Besitz eines C 64 
nebst Peripherie, 


Mein Weg zur EDV: 


Seit März 84 Teilnahme an 
einer Fortbildungsveranstal- 
tung (zwei Wochenstunden) 
auf der schuleigenen Anla- 
ge (Digital) und Änschaffung 
eines C 64 zu Übungs- 
zwecken. 

Hobby: Übernachtungen vor 
dem Keyboard 


Zur Entstehungsgeschichte 
und zur Anwendung des 


Programms: 


Wohl so mancher Selbstän- 
dige — oder besser wohl 
mancher Sohn eines Selb- 
ständigen — hat zu Hause ei- 
nen C 64 nebst Peripherie 
stehen und nutzt die Anlage 
zu allem Möglichen, nur 
nicht zu beruflichen 
Zwecken. Die Gründe hier- 
für sind vielfältig: Der Sohn 
will für den Vater keine 
Rechnungen oder Ängebote 
schreiben, weil dies ja ein 
glatter Mißbrauch der Anla- 
ge und seiner ohnehin knap- 
pen Freizeit wäre. Der Vater 
würde die Anlage schon be- 
ruflich nutzen, aber die Fak- 
turierungsprogramme sind 
nicht ganz ohne jedes Ver- 
ständnis für eine EDV- 
Änlage zu handhaben. Au- 
ßerdem sind gute Fakturier- 
programmeauchnochteuer. 
Die billigen Fakturierungs- 
programme dagegen sind 
nicht betriebsindividuell ge- 
nug, entsprechen nicht der 
DIN 5001 (Briefschreibe- 
norm) oder sind betriebs- 
wirtschaftlich oder steuer- 
rechtlich schlicht unkorrekt. 
Fazit: Die von manchem in 
den Homecomputer gesetz- 
ten Hoffnungen werden auf- 
gegeben, und Vati tippt sei- 
ne Rechnungen und Änge- 
bote in zeitraubender Arbeit 
und unter hohem »Tip-Ex-Ver- 
brauch« mühselig in die mit 
teuren, vorgedrückten Form- 
blättern gefütterte Schreib- 
maschine. Daß es auch an- 
ders geht, versucht das vor- 
gestellte Fakturierungspro- 
gramm zu zeigen. 


(Gerhard Schröter/rg) 
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Programm und Erläuterung 





der Anwendung des Monats 


Hinweise für die Listingeingabe (im folgenden sollen einige 
gegeben werden). In den Zeilen 280 bis 320 und in der Zeile 
2250 müssen beim Eingeben des Listings Ihre individuellen 
Angaben eingesetzt werden. Sindin diesen Eingaben Umlaute 
enthalten, so müssen diese als Grafikzeichen (siehe Tastatur- 
belegung) programmiert werden. Verändern Sie aufkeinen Fall 
die Dimensionierung in Zeile 240! 

Zeile 240 Und 250: 


8 entspricht dem Kaufmanns-aundü derrechten Eckklammer. 


Zeile 320: 

Der letzte Buchstabe Ihres individuellen Geschäftsortes muß 
auf Höhe des »t« des alten Mustergeschäftsortes kommen. 
Zeile 60400: 

ß entspricht dem Potenzierungspfeil (senkrechter Pfeil). 


3 
, Tastaturbelegung: | 
: shift/ + \ 
shift / linke Eckklammer 
shift / rechte Eckklammer 
Kaufmanns-a 
shift / Kleinerzeichen 
shift / Größerzeichen 


i 
| 
i 
! 
$ 
: 
. shift / Kaufmanns-a | 
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Varlabienliste (in der Reihenfolge deserstmaien 
: Vorkommens) 





= Zählergröße | 
‚a = Datagröße 
‚ an$ = Artikelname | 
m = Artikelmenge 
p = Artikeleinzelpreis 
ss = Text (auch h$, k$, f$, ff$, fo$, fb$, bz$, 9$) | 
\ wt$ = Übergabe- und Rückgabevariable für Text- : 
oo formatieruns- und Umlautunterprogramm | 
: d$ = Datum 
on = Skonto 
; 3 = j/n-Sicherheitsabfrage | 
' = Aufgabenart \ 
; x1$ = Text (bis c6$) | 
‚ ar = Anredewahl (ar$=Anredeart) 
IV = Index für Artikel 
I vp = Verpackungskosten 
f = Versandkosten ! 
n$ = Empfängername ı 
s$ = Straße 
ı 0$ = Ort 
ı iz$ = Bezugszeichenzeileninhalt (auch in$, uz$, | 
| un$) | 
' 10$ = Formgröße (auch 11$, 12$, 13$, 14$) 
ı za = Zahlungsartwahl i 
ı a$ = Anmerkungenwahl | 
al = Anmerkung (auch a2$ und a6$) 
: ak = Kopienanzahl : 
A = maximale Textlänge 
| b$ = Übergabevariable für Text 
 vk = Vorkommastellen 
nk = Nachkommastellen 
ı u$ = Vor- und Nachkommastellen 
| = Übergabevariable 
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| Zeile 1220 bis 1295 


Bedienungshinweise: 
Nach RUN muß wegen der Umlautgenerierung bis zum ei- 
gentlichen Programmbeginn zirka 45 Sekunden gewartet wer- 
den. Sämtliche im einmal laufenden Programm erscheinenden 
j/n-Fragen können anstelle von »j« für jaauch mit der RETURN- 
Taste beantwortet werden; dies gilt nicht für den Eingabeblock 
»Anmerkungen«. Werden Anmerkungen gewünscht, so sind 
diese — falls sie ein Komma enthalten — in Anführungszeichen 
zu setzen. Die Eingabe des Tagesdatums sollte wegen der 
Bezugszeichen-Zeilenformatierung immer zehnstellig in Dezi- 
malform (zum Beispiel: 01.01.1984) erfolgen. Wenn Sie eine 
Typenrad-Schreibmaschinen als Ausgabeeinheit verwenden, 
haben Sie den linken und rechten Rand von Hand einzustellen 
— korrigieren Sie dann auch wegen des Walzenschlupfes ge- 
legentlich die Papierführung des Endiospapieres. Sollten Sie 
einmal nach dem ersten RUN kein befriedigendes Cursorzei- 
chen erhalten, dann schalten Sie Ihren C 64 ab und laden 
nochmals. 
| Zeilen Bedeutung | 
| Zeile 10 bis 230 Einstellung des Computers auf 
| Groß-/Kleinschrift und Generie- | 
| rung der Umlaute in Block 1 
| der insgesamt vier Basic- ! 
blöcke 


Zeile 240 bis 350 Variablendimensionierung, Defi- 
nition von Standardtext mit 
Sprung ins Unterprogramm zur 
Umlautwandlung für die 


Druckerausgabe 


Festlegung von sich am jeweili- 
gen Arbeitstag nicht ändern- 
den Größen wie zum Beispiel 
dem Datum. Ende des »Vor- 
programms« — wird bis zum 
neuerlichen Lagen des Pro- 
grammes nicht mehr berührt 


Zeile 620 bis 670 


Menüs zur Wahl der Arbeits- 
art, der Anrede und entspre- 
chende Definition von Varia- 
blen 


Zeile 680 bis 840 


Zeile 850 bis 910 Eingabeblock »Empfänger« mit 
Sprung in die Umlautwandlung 


und Sicherheitsabfrage 


| Zeile 920 bis 1000 Eingabeblock »Bezugszeichen- 
\ zeile« mit Umlautwandlung und 


| 
| 
| Definition von Formstandards 
h 
| 
| 
| 


i Zeile 1010 bis 1110 Eingabeblock »Artikel, Men- 
\ gen, Preise« mit Variablen- 
indizierung durch Zähler 


Eingabeblöcke »Zahlungsart« 
und »Nebenkosten« | 


Eingabeblöcke »Anmerkun- 
gen«, aufgeteilt nach Arbeitsart | 





Zeile 1120 bis 1210 


| 


mar nennen nennen nennen 


Saar 69 


U EN SE 








Eingabeblock »Anzahl der Ko- 
pien« 

Erstellung der Erstschrift mit 
Rechenteilen, Sprünge in For- 
matierungsprogramme und 
Standardtexten 


Kopierschleife und Eingabe- 
blöcke zum weiteren Arbeits- 
ablauf mit Rücksprunganwei- 
sung zum Hauptprogrammbe- 
ginn beziehungsweise zum 
Hauptprogrammende 


Unterprogramm Textformatie- 
rung 


Unterprogramm Umlautwand- 
lung für Drucker 


| Zeile 50100 bis 50300 : Unterprogramm Zahlenforma- 
tierung mit Nullen- und Dezi- 


Zeile 1300 bis 1315 


Zeile 1320 bis 2370 


Zeile 2380 bis 2490 


| Zeile 40100 


Zeile 45000 bis 45110 : 


malpunktunterdrückung {falls 
Dezimalwert erscheint, wird 
der Dezimalpunkt doch ausge- 
wiesen) 

Unterprogramm Zahlenforma- 
tierung mit permanenter 
Dezimalpunkt- und Nullen- 
ausgabe 


Zeile 60100 bis 61500 : 


Programmbeschreibung nach Zeilennummern 










ilversand 





BEHELEH OH 
7870 Abestadt &, Tel.ı 0999771 
sparkasse Abostadt (ELZ 454 500 70) Nr. 239 499 





Bankkonto: 


ABELE % BEBELE OHG, Fostfach 1 23, 9870 Abcstadt & 


Herr 
Gerhard Schröter 
Schießhüttenweg 1 


7951 Ingoldingen \ 


Abestadt 
03.07.1984 


ihre Zeichen u. Nachricht, unsere Zeichen u. Nachricht 
55 15.08.84 AB/Z/VE — 


Angebot 
Angebhotsnummer:11-7-84 
Angebotsdatum 1:03.07.1984 

Sehr geehrte Damen und Herren, 


aufgrund Ihrer Anfrage bieten wir Ihnen folgende Artikel an: 





ikelname od. Leistung Einheiten 


Freis/Einheit Gesamtpreis/DM 
Winterrmantel °"Taiga’’ 1 
Skipulli "Arlberg" i 
Herrenhose iı 





Summe, Nettowarenwert: 
Verpackung/Fracht: 
Gesamtpreis exkl. Must.ı 
+ 14 % gesetzl. Mwst.: 
Versandkosten (Porti): 


Gesamtpreis/DM: Feuunn 


Zahlbar innerhalb 20 Tage, metto, oder innerhalb von 10 Tagen 
mit 2,59 % Skontsabzug (20.58 DM. 


Angebot freibleibend! 


Wir bitten um Ihren Auftrag und sichern Ihnen sorgfältige Ausführung 


zur 
Mit freundlichen Grüssen 
ABELE % BEBELE OHG 





Eine Musterrechnung 


70 kan 




















Listing »Faktan 64« (Anfang). Die Zeile 750 ist durch fol- 


gende Statements zu ergänzen: ww$ = ”":VU$=" " 

10 printehr# (147 )ıprintchr#&(14)e2printchr 

+(8)} : 

15 print" su ur ar 

warRas" 

zu print" * 
* * 

25 print" # FAKE 
= 2 

30 print" * 
# a 

35 print" # 
+ 2 

40 print” * 
+ IL3 

55 print" # 
+ 18 

80 print” 

we" 

70 print:print:ıprint" Guten Tag!"ıprint: 

print" Bitte warten Sie!":print:print 

0 printchr#iTt)chr#(Pl)chr#iäö} „chr# {973 

Iichr£tiä2) ,„chr#tt{täödichr#+{i18ä),chr#{i122) 

95 poke3Z2, 48: pokeSs,45:c1lr:pokeSö334,pee 

E (56334 )and254:pokel ,„peek (1l}and251 

100 fori=0to1023:pokei+1778D,peekti+7ö048 

+53Z24B8}ırext 

110 fori=Ü0to7:reada:pokel?288+1 ,‚zinext 

fori=0tof:readaspokel2?7538+122#8+1 „ar 


TAN 0-54 


{C.} by Gerhard Schroeter 


Tel.:073557/1285 


KEEHEFFEEHFIF TKM NH HH HR 


fori=0to7f:ıresda: pokel2258+27#59+1 ,„aın 
140 furi=üto7:reada:pokel7288+50=5+1 ,aın 


150 fori=0:07:pokel7788+29#B8+1 „peek (5324 
8+2048+B+1i}ınext 

1&0 pokel7288+29#8+1,102 

170 fori=0toT:reada:pokel17288+62#041 ,aın 
ext 

180 fori=0to7:reada:pokel?72B8+71#8+1i ,arn 
ext 

190 pokel ,peek (l!or4:poke54334 ,peek (5633 
a)orl 

200 poke53272, (peek (53272) andZ40)+12 

210 data0,0,102,0,102,102,50,0,102,0,102 
„102,102,102,80,0 

220 data0,0,102,50,102,102,50,0,102, 40,1 
02,102,102,102,.60,0 

230 datal0?,0,40,1072,125,102,102,0,0,56, 
108,120,108,108,120,7& 


250 kF="Wir bitten um Ihren Auftrag und 
sichern Ihnen sorgfültige Ausf'hrung" 
zZö0 wtF=ktrgosub4I000: kFentFıwttehrtrgosu 
b4S0NG0:hfawtt 
280 fr="ABELE & BEBELE OHG 
nd":g+="ABELE % BEBELE OHG" 
290 ff+="ABELE %& BEBELE OHG, Postfach 1 
25, 97870 Abestadt 4" 
300 fotf="Fostfach 1 23, 
Tel.ı 09997/1234567" 
310 fb#="Bankkonto: Kreissparkasse Abest 
adt (BLZ 654 500 70) Nr. 
320 bzt="Ihre Zeichen u. Nachricht, unse 
re Zeichen u. Nachricht Abcestadt” 
320 wEE=TFrgosub45000: fFawit auit=gfıgosu 
b45000: gf=ut# 
340 wLEE=sfffigosub43000: FT Fenttıwutit-fotrg 


Textilversa 


9870 Abcestadt &, 


2397 699" 


z40 BEN em. 
"ıhf="Mit freundlichen Er'ssen" 


nennen nennen 
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| 
| 
| 
x 
| 


| 
| 
| 
| 
| 
| 
| 


osub45000: fo$=wt# 
350 wt$=fbf:gosub45000: fhF=ewtsıwtfebzt:g 
osub45000: bzF=wtf:printchr# (147) 


&20 input" Heutiges Datum : "sdfsprin 
tzinput" Mehrwertsteuersatz: °»s;tıprint 
640 input” Skontosatz = "ssnıprin 


t:print: jt="j" 
850 input" Alles richtig (lj/n) : 
j$=""or j$="j"thendB0 


ns jg2if 


&70 ifj$="n"thenprintchr$i147):goto620 
680 printchr$(147):print" Aufgabe: Rechn 
ung schreiben = 1":a=0 

690 print:print" Angebot schrei 
ben = ?2":print 

700 input" Aufgabenart i oder 2 


: "zkasprint:sifailora>2thendsSo 
712 ifa=1thenx 1#="Rechnung":x2Ff="Rechnun 
gsnummer : ":x3#="Rechnungsdatum ." 
720 itfa=?thenx 1f="Angebat":x2#="Angebots 
nummer: "ıxIf="Angebotsdatum =" 
730 ita=?thenx4#="Sehr geehrte Damen und 
Herren," 

735 ifa=2then«Sf="aufgrund Ihrer Anfrage 
bieten wir Ihnen folgende Artikel anı" 
740 printehr$ (147) ın$="":s$=""20$=""inr$ 
=! " a izf=" . . inf=" a = urt=" Li 2 uns=" ” = v= 

750 vp=0:f=0 


770 print” Anrede: Firma = 1":p 
rint" Herr = 2" 

790 print" Frau = 3":p 
rint \ 


800 ar=Qzinput” Anredewahl 1 bis 35 .” 

sarsifar<lorar>3then?740 

820 ifar=ithenar$="Firma" 

830 itfar=2thenarf="Herr" 

840 ifar=3Sthenart="Frau" 

850 print:print:sinput" Empfaengername : 

"sn$ıprint:wts=ens: gosub45000:nF=wt$ 

840 input" Strasse u. Nr. : ";sfrsprintin 

t$=5$:g0sub45000: s$=wt$ 

870 input" PLZ und Ort . 

t$=0f: gosub45000: o$=wt$ 

875 ifa=?Ztheninput" Angebotsnummer : 

r$:print:sprint:goto890 

880 input" Rechnungsnummer: 

print 

870 j$="j"sinput" Alles richtig {j/n? : 

ns j$2ifj$="t"orjt="j"then?720 

910 ifjs$="n"thenprintchr$ (147) 2900740 

920 printchr#(147) input" Ihre Zeichen 
ı "sizf:print 

925 wtf=izt:gosub45000: iz 4=wt# 


"ofsprint:w 
"en 


"nrfıprint: 


930 input" Ihre Nachricht ı "sinftspr 
intzwtt=inst:gosub45000: inf=wt + 
940 input” unsere Zeichen : "suzf:spr 
intswtf=uz$: gosub45000: uzF=ntF 
350 input" unsere Nachricht ı "zunft:pr 


int:print:wt$=unf: gosub45000: unF=wtF 

960 jF="j"zsinput" Alles richtig (j/n? 3 
"s jtrifjs=""orjt="j"then?BO 

970 ifj$="n"then?20 

980 10Ff="Artikelname ad. Leistung Einh 
eiten Preis/Einheit Gesantpreis/DM" 
985 11F="--—---- 77 


990 128="----------- 7707 _ 
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ANWENDUNG DES MONATS 


1010 vav+l 

1015 an$="":m=0:p=0:printchr$ (147) input 
" Artikel/Leistung : "zjanf:print 

1020 wt$=ans:gosub45000: anfent# 


103C input" Menge ı 'zmsprint 
1040 input" Einzelpreis s "spzprint 
print 


1045 an$(v)=anf:m{v)=m:p{v}=p:jF="j"rinp 
ut" Alles richtig (i/n) : "zifeprint 
1060 if jt=""orjf="j"then1090 

1070 if j$="n"theni015 

1090 jf="":print:input" Weitere Artikel 
{j/n) x "sijfeprint 

1100 if j$=""ar j$s="j"thenl010 

1110 if j$="n"thenprintchr#(147):print 
1120 input" Verpackungskosten/Fracht 
zvp:print 

1130 input" Versandkosten (Forti) : 
ıfiprint 

1132 j$="j"sinput" Alles richtig (j/n) 
ı "sr jFeprinteifjs=""orjf="j"then1155 
1133 if j$="n"thenprintchr#1147):gotuoll2O 
1135 ifa=sTthenza=2:gotol220 

1140 printchr$(147}:print" Zahlungsart: 
Barverkauf = 1" 


1150 print" Ziei = 2" 
1140 print" Nachnahme = 3" 
1170 za=0:print:input" Zahlungsart ib 
is 3 x: "zzarprintsprint \ 
1180 ifzallorza>äthenprintchr#i147):prin 


t:goto1140 

1190 i$="j"sinput”" Alles richtig (3 / 
n) x: "sjFrprint 

1200 if ijf="j"or jt=""then1220 

1210 if j&="n"thenprintchr#(147):print:go 
to1140 

1720 ifa=Zthen1270 

1225 printchr# (147) :printsaf="n":input" 
Anmerkungen tj/n} : "zsaf:print 

1228 al$="":azr="" 

1750 ifaf="j"thenprint:gotol240 

1235 ifaf=""oraf="n"then1300 

1240 print" ACHTUNG max. je der 2 Doppel 
zeilen bis zum Sternchen schreiben! #" 
1245 printsinputalf:printsinputa2#:print 
17247 wt$=alf:gosub45000: alFewtt: wt$=ait: 
gosub45000: a2f=wtt 


1250 i$="j"sinput" Alles richtig (ji/n} 
"sis 

1255 ifi$=""ori#="j"theni300 

1266 ifi$="n"then1225 

1270 printchr$(147):printsaf="n":input" 


Anmerkung (if/n) : "zsafrprintradte"" 

1275 ifaf="j"thenprint:goto1285 

1780 ifas=""oraf="n"then1300 

1285 print" ACHTUNG in der Doppelzeile n 
ur bis zum Sternchen schreiben! *" 
41290 print:inputaös$:wtF=aöf:gosub45000: a 
bF=wtts it-"" 


1z9l printsinput" Alles richtig (j/n} = 
si 

1292 ifi$=""orif="j"then1300 

1295 ifif="n"then1270 

1300 printchr#(147):print:print 

1310 input" Anzahl der Kopien : "sakspri 
nt 

1315 print:print" Bitte warten Sie " 
1320 open1,4,7 

13350 print#1,chr#(27);chr#(114);chr# (2); 


sprint#1,chr# (27) schr# (76) schrF N; :5=0 
Listing »Faktan 64« (Fortsetzung) 
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ANWENDUNG DES MONATS 


1390 print#1 ,chr#(27};chr#t119P?schr#tlls 
sprint#i,f# 

1410 print#1,chr#+(27)schr&{11MNy;,chr#iö), 
sprint#l,fof:print#l,fb# 

1480 print#1,chr#{i27})schr#t33)schr&iä),: 
print#l,chr# (27:3 chr$(45};chr#{1): 

1500 print#l:print#i:print#äl:print#1,ffF 
1510 print#1,chr&#(27);chr#+ {45}; chr#10);: 
print#1,chr#{27%;chr#{3F);chr#i0); 

1530 print#l:print#äil:print#l,ar® 

1590 print#l,nf:print#1l ,s#:print#l:print 
#1 ,oF:printäl:print#l:print#i 

1590 printäl:print#il,bzf:tl=16:tx$=siztiıg 
osub40100:t1l=ll:txFeint:gosub4ül00 

1670 't1=1B:ıtxf=euz$:gosubäülüü:tl=13:txte= 
unf:gosub40100:t1=11:txFf=dt:gosub40100 
1710 print#i:print#ti:print#äl,chr#(77};ch 
r£{/11P)schr#(l}i;:print#il,x1# 

1720 print#1,chr#(Zd%yschr# (119) ıchr#{03: 
print#1,.x2#;nrf:print#1l,x3#;d# 

1730 ifa=Zthenprint#l:print#1:print#1l,x4 
$:grint#l:print#1 ,«SFrprint#i:gotaol770 
1740 print#1:print#1l:print#l,"Wir liefer 
ten Ihnen:”" 

1770 print#l:sprint#1,lÜüf:print#i1,l1fF:tl= 
2b: vk=säınkstiur=s"13.2"ın={vickz 

1800 forvelton:txFf=anft (v):gosub40100 
1830 zxem (v3 gosub50100: uxsp [vi mgosubä0l 
OOzgem{v}sp Wisux=gıgosubä01l00:s=s+tg 
1880 print#äl,:nextwviıifventheniFoOd 

1700 print#1,12#::1=30:uF="35. 2"ıtx$="Su 
mme, Nettowarenwert: "ıgosub40100 

1939 ux=s:gosubäßlüü:print#l,:taf="Verpa 
ckung/Fracht: ":gosub40100 

1950 ux=evp:gosubäßlüß:print#l,: 
»F="Gesamtpreis exkl. Must..." 
2000 gosub40100: ux=gp:igosub&ößlüg:printHl 
enwe (gp#tL)I/100 

2930 t2£=str#tit):tiFe"+t+tige" % gesetzl 
„ Must. "rtsfetlfigosub40100: unsmw 

2050 gosubä0l100:print#l,:txF="Versandkos 
ten (Forti):":gosub40100 

2055 ux=frgosub&ol0oO 
2090 print#1,:print#1,13Ff:ge=sgp+tmw+rf:tz 
="Gesamtpreis/’DM: >rr>P>7R"2gosub40100 
2130 ux=ge:gosub&ö0l0ü:sprint#1,:print#l,l 
4: print#l:print#l 
21&0 sk=(gp+mw)* (sn/1l00) 2 so=int (sk#100+0 
‚S?/1loQ:ifso=üthensof="00" 
21860 ifsorlthensof=str#+(sot:sof=sright#+ts 
ofr,len(iso#}-1) 
zZ1r0 ifsozithensof=strtiso):ssof=e"ö"+righ 
t+isor,leni{sof}-1} 
2192 ifa=1then2200 

2195 ifa=2then?2266 
2200 ifza=0then?350 
210 ifza=1then?2240 

2220 ifza=Zthen2250 

2230 ifza=F3then?T76t 
2240 print#1,"Betrag erhalten. ":pgrint#1 
2250 print#1, "Abcstadt, den "sd#z;" 

nn nun ne ":9g0t02270 

2260 print#1,"Zahlbar innerhalb 20 Tage, 
netto, oder innerhalb von 10 Tagen” 
2270 print#1,"mit";sn;"% Skontoabzug ("5 
sof;" DM. ":goto2290 

2280 print#1,"Betrag durch Nachnahme erh 
alten. ":90t02290 

2290 ifa=1then2300 

ii ifaf="n"then2340 


gp=s+tvpst 





7 an 


2296 ifat="j"then2335 

2500 ifaf="n"then?350 

2320 print#l:print#1,alf:print#l ,„aZf:got 

ar350 

2335 print#1l:print#1,aöfr 

2340 print#l:print#1l,k#:print#l,l®:print 
#1:print#1,ht:print#i:print#1,gF 

2350 print#1l,chr#{l12}; 

2350 ifak>OthenZI80 

2370 ifak=0then2424 

2380 forc=itoak:ıkz=sx+lraksak- 
1330: nextc 

2424 ifa=1then?430 

2425 ifa=2thenprintchr#+ (1479 sprintrinput 
" Weitere Ängebote (ji/n} : "ıwaftsprint 
2426 ifwasf=""orwat="j"thenclosel:goto740 
2427 ifwat="n"then2440 

2430 printchr#(147}):print:input" Weitere 
Rechnungen (ji/n) =: "ıwr&:print 

2430 ifwrf=" j"orurf=""thenclosel:goto740 
2450 ifwr$="n"then24&50 

2480 print#l,chr+(Z27)y,chr#(öd),;:closel 
2470 print:print:sinput" Weitere Arbeiten 

ti/n) 2 "sijseifjs=""orjs="j"thendBO 

2490 ifjs="n"thenprintchr#(147) send 
40100 tx=len (txF}:print#l,tx«F, tab (ti1-tx) 
s:return 

450900 forl=itolen (wtF} :vur=midt (wtF,1,1) 
45020 ifvusschr#+ (2197) thenvur=chr# (74) 
45030 ifvusrschrttö4)thenvusr=chr+(P7I) got 
0450970 
45040 
45050 
A500 
45070 
45020 
45090 
45100 
45110 
50100 
’ 
50200 zl=len (zxF}:zu=0: forzn=itozlsifmid 
#(zxF#,zn,1)=". "goto50400 

S0390 zu=szu+ril:nextzn 

50400 print#l,tab (vk-zu)szxstabtlink+vk)- 
{vk-zutrzl’+l)ssreturn 

s0100 uvs=rightt (ur,1l’sul=sint (val (ub) }ei 
fvusi{>". "thenur=val (uv$F) :gotos0400 

60300 uaf=strftisgn (ux}#intlabslux)}}+"." 
zub$="":ul=ul+i:goto 51300 

&0400 ul=sint (val (uf) })zuxt=sstr$ (sgn (ux?#t 
int (abs (ux}#10Bur+.5})/10Bur) 

&0&00 uv=O: forun=itolen {ux#): ifmid#tux®, 
un,12}=". "thenuv=un 

60650 nextun 

80700 if uv=ü then uvsunsuxfeunf+",." 

50900 if uvi>2 then 51100 

61000 uxt=leftftuxf, 1)+"O"+rightftux®t,le 
ntux#}-1}z2ul=ul-1:ur=sur+l 

81100 ubF=midt (uxF,uv,len (uxf#}+1)+"00000 
VO00" 

1200 ubt=left#(ubf „ur+l):uaf=lefttluxt, 
uyv-1) 

61300 if len(uafr!>ul then print"usingber 
eich zu klein":stop 

61400 if len(uaF)Zul then uas=" 
to 41200 
61500 print#1, 
ready. 


1:gp=0:goto 


ifvüus=schr# (186) thenvufs=schr# (125) 
ifvur=chr#(?1)thenvusrschr# (92) 
ifvus=chr #{460})thenvuftr=chr# (124) 
ifvusschr# (73) thenvufr=chr# (91) 
ifvusschr# i(&ä2)thenvufr=schr#+ (123) 
wnfewnnFtvut 
ifvur=schr#+ (973 thenvur="":goto43040 
nextl:wttsunf: wuf=" "return 

zx=int (zx#100+0.5)3/100: zxf=str#+(zx 


"+uafıgo 


waftubf)s:sreturn 


Listing »Faktan 64« (Schluß) 
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C 64 


Anmerkung: Da die Unterprogramme mit Übergabevariablen 
aus dem Hauptprogramm (zum Beispiel wt$ oder tx$) versorgt 
werden und die Arbeitsvariablen der Unterprogramme, wie 
zum Beispiel tl (Textlänge), vk (Vorkommastellen), nk (Nach- 
kommastellen) oder u$ (Vor- und Nachkommastellen bei 
Dezimalpunkt- und Nullenausgabe), im Hauptprogramm (siehe 
zum Beispiel Zeile 1770) beliebig definiert werden können, 
lassen sich diese als Bausteine für andere Programme nutzen. 





Änderungen bei Verwendung einer Typenradschreib- | 

maschine | 

Brother CE-60/CE-70, 

Privileg P 6000, 

Schweiz: Migro-Office, 

auch: CE-50 m. IF-An,, 

ebenso: Schönschreibdrucker Brother EM-80/100/200 
Bei Verwendung eines Schönschreibdruckers bezie- 

hungsweise einer Typenradmaschine von Brother zusam- 

men mit dem WDT-Interface (Wicher Digital Technik, Flörs- 

bachtal, baugleich mit Quelle und Neckermann) sind fol- 

gende Änderungen im Listing notwendig: 


1 
| 
1310 input” Anzahl der Kopien : "jakrprint 
1311 printrprint" Bitte warten Sie !" 
1312 bl=30; ifa=Zandaf="j"thenbl=18 
1313 ifa=Zandat= thenbl=20 
| 
A 
| 





1314 ifasithenax goton1317 
1315 ifra=ithenh A 

1316 ifza=tthenht=? 

1217 ifzra=ithenht=1 

1318 ax=0rifas=e"j"thenax=Trgotol319 

1319 z=bl-ht-axm (vw) 

1320 openl,4,7 

1330 s=Ö0:print#i,f*rprint#il,fossprint#i,fb# 
1480 print#l,chr#(30);:print#l,chr#tö): 
1500 print#l:print#lrprint#i:print#l,ffs 
1510 print#i,chr#(25) 5, :print#l,chr#(7; 
1530 print#i:print#lsprint#i,ar® 

ready. 

1710 print#1sprint#l:print#i1,x1$:print#i 
1720 print#1,x2$inr#ıprintäl,s3r,dE 

ready. 






2350 forg=itoz:print#isnextg 

ready. 

14890 print#1,chr&(27)schr# (31) schr#{93 
sprint#i,chr#(27)schr#&(69; 

ready. 

1510 print#i ,chr&{27)schr#+t3l)schr#(19: 
ıprint#i,chr#(2Mschr#(82; 

ready. 


Automatischer Seitenvorschub, komprimierte Schrift 
und automatische Unterstreichung 


namen anne 



















45000 
45010 
45020 
45030 
45040 
45050 
45060 
45070 
45080 


forl=f{tolen(wt$) 
vu$=mid$(wt$,1,1) 
ifvu$=chr$(219)thenvu$=chr$(190) 
ifvu$=schr$(64)thenvu$=chr$(189) 
ifvu$=chr$(186)thenvu$=chr$(221)| 
ifvu$=chr$(91)thenvu$=chr$(188) 
ifvu$=schr$(60)thenvu$=chr$(220) 
ifvu$=chr$(93)thenvu$=chr$(187) 
i£fvu$=chr$(62)thenvwu$=chr$(219) 
45090 ww$=ww$+vu$ 

45100 nextl:wt$=ww$:ww$= 
(45110 entfällt) 


"return 


Zusatzänderung bei Verwendung des Original-Interface 
Brother IF-50 


x lo N IR. 1NOA 
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Kopplung 
über den 
User-Port 


In der letzten Ausgabe brachten wir 
zwei VC 20 dazu, gegeneinander zu 
spielen. Nun lassen wir zwei C 64, oder 
einen VC 20 und einen C 64, Daten oh- 
ne jegliches Interface über den User- 
Port austauschen. 


Seit einigen Monaten betreibe ich zwei gekoppelte C64, die 
sich zu meiner vollen Zufriedenheit die Befehle eines fünfstim- 
migen Synthesizer-Programms teilen. Während es für meine 
speziellen Anforderungen bereits genügt, ein einzelnes Byte 
rasch zu transportieren, können die vorhandenen Routinen oh- 
ne viel Mühe so erweitert werden, daß man 
a) Basicprogramme 
b) Variablen, 

c)} Arrays und 
d) Maschinenprogramme überträgt und gegebenenfalls aus- 
führt. 

in diesem Artikel erläutere ich Ihnen die Grundroutinen an- 
hand der Basicprogrammübertragung. . 

Neben der eingebauten seriellen Schnittstelle hat der C 64 
wie alle Computer von Commodore einen programmierbaren 
User-Port, der eine Verbindung nach »draußen« darstellt und 
entsprechend genutzt werden kann. Die Adresse des User- 
Ports liegt beim C 64 auf 56577 ($ddO1). Eine Abfrage mit 
PEEK (56577) zeigt den Wert 255. Ein POKE-Befehl ändert 
daran nichts, weil das Betriebssystem beim Initialisieren den 
User-Portals Eingang definiert und sich unbeschaltete Eingän- 
ge als logisch »1« verhalten. Bevor man den User-Port als Aus- 
gang definiert, müssen einige Sicherheitsvorkehrungen ge- 
troffen werden, denn der User-Port des einen Computers wird 
Draht für Draht mit dem des anderen verbunden. Dabei darf im- 
mer nur ein Computer den User-Port als Ausgang betreiben, 
sonst kommt es zur Zerstörung der Port-Bausteine. Die Adres- 
se des Richtungsregisters ist 56579 ($ddO3). In diesem Regi- 
ster definiert ein gesetztes Bit das entsprechende User-Bitals 
Ausgang. Dadurch wird ein gemischter Betrieb möglich, der in 
meinem Programm jedoch nicht vorkommt. 

Als Voraussetzung muß eine physikalische Verbindung in 
Form von Drähten und zwei User-Port-Steckern geschaffen 
werden. 

Es sind insgesamt 11 Drähte, welche die beiden Computer 
verbinden. Ich habe die Verbindung mit einer 4 mlangen, sorg- 
fältig verlöteten Flachleitung realisiert und bisher keine Stö- 
rung bemerkt. 
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Auf Seite 143 des C 64 Handbuchs ist die Kontaktbelegung 
des User-Port-Steckers aufgeführt. 

Die Daten-Bit-Kontakte PBO bis PB7 liegen genau in der Mit- 
te des Steckers und werden »Bit für Bit« verbunden, also »C« 
an »C«, »D« an »D« und so weiter. 

Auch die Masse-Leitungen »A« werden miteinander verbun- 
den. 

Die beiden übrigen Kontakte »B« und »M« werden gekreuzt, 
so daß »B« mit »M« verbunden ist und umgekehrt. 

Das Programm ist ausführlich erklärt. Eine Besonderheit ist 
die Speicherbereichswahl. Jeder Autor glaubt, der $c-Biock 
sei ganz frei und warte auf genau sein Programm. 

Um hier eine bequeme Übernahmemöglichkeit in eigene 
Routinen zu bieten, lädt sich der Maschinenteil des Pro- 
gramms an das obere verfügbare RAM-Ende, schützt das 
Segment vor den Strings und löscht sich letztlich selbst. Die 
SYS-Adressen werden auf dem Bildschirm angezeigt. Dann 
können im Direkt-Modus Basicprogramme hin- und herge- 
schoben werden, oder aus Maschinenroutinen einzelne Bytes 
transportiert werden. Die Basicprogramm-Übertragung hat die 
angenehme Eigenschaft, das transportierte Programm an das 
bereits im Speicher befindliche Programm anzuhängen, es 
handelt sich also um eine Art Merge-Funktion. Der »NEWe«- 
Befehl schafft wieder leere Verhältnisse, wenn's mal zu voll ge- 
worden ist. 


Programmerklärung 


Die Punkte »..« im Basicprogramm sind Platzhalter für die 
$-Seite, in die das Maschinenprogramm geladen wurde. Im fol- 
genden gehe ich von Seite $ 7f aus. $7f00 = sys 32512 
überträgt ein Basicprogramm vom Sender zum Empfänger, wo 
es an das im Speicher befindliche Programm angehängt wird. 
Zunächst wird der User-Port des Senders als Ausgang defi- 
niert. Dann wird ein Zeiger in $58 eingerichtet, der von Basic- 
Start ($2b) bis Basic-Ende ($2d) alle Bytes der Byte-Sende- 
Routine mit »jsr 7f5e« übergibt. Nach Übertragung des letzten 
Bytes wird der User-Port wieder als Eingang geschaltet {= Si- 
cherheitsfall). 

Mit sys 32551 ($7f27) wird ein Basicprogramm empfan- 
gen. Durch Subtraktion von 2 vom Basic-Zeiger wird die Kop- 
peladresse gewonnen, ab der die empfangenen Bytes ge- 
speichert werden sollen. Die Byte-Empfangs-Routine steht ab 
$7f7c. Der Empfänger erkennt das Basicprogramm-Ende an 
drei folgenden Nullen ($ #00), wonach er den Empfang ab- 
bricht, durch einen CLR-Befehl ($a660) die Basic-Zeiger neu 
setzt, durch $a533 die Programmzeilen neu bindet und 
schließlich in die Basicwarteschleife nach $e385 springt. 

$7f5e ist die Byte-Sende-Routine. Der Akkumulator des 
Prozessors wird in das Datenregister des User-Ports ge- 
schrieben, anschließend wird das dritte Bit in Register $dd0O 
auf »O« gesetzt. Nun bleibt das fünfte Bit in Register $ddOd 
des anderen Computers solange »1«, bis es gelesen wird. 
Durch den Lesevorgang wird es gleichzeitig gelöscht. Diesen 
Mechanismus kann man einfach zur Übertragungskontrolle 
nutzen. Das dritte Bit von $ddOO ist die VALID-Flagge. Wenn 
sie gesetzt ist, sind die Daten gültig. Damit der Sender weiß, 
wann er das Byte übertragen ansehen kann, sendet der Emp- 
fänger ein QUITTUNGSs-Signal. Dieses kommt im fünften Bit 
des Registers $ddOd beim Sender an. Auch hier wird durch 
das Lesen gleichzeitig gelöscht. Braucht der Empfänger zu 
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lange, um das Byte anzunehmen, zum Beispiel dann, wenn er 
gar nicht eingeschaltet ist, bricht der Sender nach zirka 1,8 
Millisekunden Wartezeit den Sendevorgang ab und schaltet 
den USER-Port wieder auf Eingangs-Modus. Dadurch soll ver- 
hindert werden, daß die beiden Computer gleichzeitig senden, 
was der Hardware schaden würde. Nach erfolgter Übertra- 
gung wird das dritte Bit in $ddOO wieder auf »1« gesetzt, dabei 
ändert sich in $ddOd des anderen Computers nichts, esisthalt 
notwendig, um es wieder auf »O« setzen zu können. 

$7f7c ist die Byte-Empfangs-Routine. Hier wartet der Emp- 
fänger solange in der VALID-Schleife, bis die Daten gültig sind. 
Wird nichts gesendet, so wartet der Empfänger fortwährend 
und merktnichts. Zum Abbruch muß man dann die RUN/STOP- 
und die RESTORE-Taste gleichzeitig drücken. Sind die Daten 
gültig, so werden sie in den Akkumulator des Prozessors gela- 
den. Der Empfänger quittiert durch einmaliges Nullen des drit- 
ten Bits von $dd00. 

$7tf8f definiert den User-Port als Eingang. $7f92 definiert 
den User-Port als Ausgang. Der Trick mit »BIT mmnn« fand 
auch hier Anwendung. Man spart immerhin ein Byte. 

$7f9d initialisiert den User-Port. Zwar setzt das Betriebs- 
system den User-Port als Eingang, nimmt aber nicht: die Flag 
in $ddOd weg, wodurch es direkt nach dem Einschalten zu ei- 
ner VALID-Meldung kommt, die eine richtige Übertragung ver- 
hindert. Die VALID-Schleife in $7f9d liest so lange VALID- 
Flags, bis keine mehr kommen, und springt dann zur Eingangs- 
Richtungs-Routine. 


Praktische Ausführung 


— Verbindungsleitung löten (1:1). 
— Programm erfassen, SAVEn und RUNnen. 

Soll zum Beispiel von Computer A ein Programm zu Compu- 
ter B übertragen werden, so muß zuerst Computer B mit »sys 
32551« vorbereitet werden, dann wird Computer A mit »sys 
32512« zum Senden veranlaßt. Im umgekehrten Fall be- 
schwert sich Computer A mit der Meldung »device not present 
error«, welche aus dem Basicinterpreter für diesen Zweck ent- 
liehen wurde. Die Übertragungsrate liegt bei etwa 11 000 By- 
tes pro Sekunde. 

(Johannes Mockenhaupt/rg) 


Johannes Mockenhaupt 
Hochstadenstr. 28 


D-50000 Köln 1 
‚den 29.März 


Ce 54 / VE 20 / Koppelung 
rem über den proqgrammierbaren USER 
Fort. 

80 : 

100 bytes=1&83: 

ahl Bytes Maschinen-FRG 
110 hs=peek (56) -1: rem 
chste aktuelle RAM-Seite minus 1. 

120 if peek (55770 then hs=ehs-i:rem " kei 
n "glattes’ RÄM-Ende: Sicherheits-Seite 
130» 

140 print 


rem " Anz 


" hoe 


"Esys'"hs#256":BASIC PRG senden 
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Listing zur Übertragung von Basicprogrammen zwischen 














zwei C 64. 
150 print "Eeys"hs#756439" BASIC PRG emp 5130 data 133, 88: rem " ..07 8558 
fangen. sta 58 merken 
160 print "Eesys"hs#255+94":1 BYTE senden 140 data 132, 89: rem " „.07 84 597 
170 print "Eeys"hs#256+124":1 BYTE empfa sty 59 merken 
ngen b200 data jJ&a0, 0: rem " „.Ob a0 00 
180 print "Eesys’hs#255+14 2": USER-Port au ldy#00 Y-Register vorbereiten. 
f Eingang 210 data 177, 85: rem " ..Od b1i1 58 
iS0 print "EBeys"hs#255+14&":USER-Fort au ida (58).y 1 Byte aus FR6 holen 
+ Ausgang Hr20 data 32, 94, -iırem " „.Of 20 Se 
Z00 print "EBeys'hs#255+1397":QUICK-Fort I .„.  jsr .„. De und senden. 
nitialisierung 82350 data 2350, BB: rem " ..12 es 58 
Z90 2 inc 58 Zeiger erhoehen L-Byte 
z00 for i=hs#256 to itbytes-l 240 data 208, 2: rem "” „.14 do 02 
ı z10 read a bre „.i18 . ohne Uebertrag 
Z2C b= 6250 data 230, 89: rem " „.i16& e6 59 
330 if aid then a=saths+i inc 57 Zeiger erhoshen H-Byte 
: poke i,a 5300 data 165, 89: ren " „.18 3557 
s=s+b lda 57 Zeiger H-Eyte 
250 next i 8310 data 197, Abd: ren " „.la c5 Ze 
370 s=s-20510 cap Te BASIT-Ende H-Byte 
380 if si>O then print "EiData-Fehleriä:" 320 data 144,277: rem " „.lic 97 ed 
s"betrasgt die Differenz.":end bec ..0Ob noch nicht erreicht. 
390 x 5330 data 145, BB: ren " „.le a558 
400 print "ERBuickPortig ist jetzt initia ida 58 Zeiger L-Byte 
ı lisiert. 8340 data 197, 45: rem " „.20 c5 2d 
410 poke 5ö,hs: rem " neue RAM-top Ad cmp Td BASIC-Ende L-Byte 
resse 350 data 144,231: rem " „.2ZE2 DO e7 
420 sys hs#256+157:ırem " Initialisierung bee .„.Ob noch. nicht erreicht, 
430 new: rem " Setzen der BASI 6360 data 76,143, -lırem " „.24 4c Sf 
C-Zeiger auf neuen Bereich. „.-» .  Jjmp „.8# USER-Fort auf Eingang 
240 2 8370 8 
&O00 rem " Transport-Roautinen BASIC- 7000 rem " Transport-Routinen BASIC- 
FR5G Senden: #..00 PRG Empfangen: #..27 
Old: 7610 : 
100 data 72,146, -lırem " „.OO 2092 7100 data 38: rem " „.27 58 
... jsr „..92 USER-Fort auf Ausgang sec Start-Adresse berechnen 
&iic data 155, 435 rem " „.O5 25 26 7110 data 1585, 45: rem " „.28 a5 zd 
lda Zb L-Byte Basic-Start ida Td L-Byte Basic-Ende 
120 data 164, 44: rem " „.05 a4 2% 7120 data 233, 32: rem " „.Za e? 02 
idy Zc H-Eyte Basic-Start sbc#0?3 02 substrahieren 


| 








Computer A Computer B 


DATA-Bits DATA-Bits 


User-Port Die Verbindung von User-Port zu User-Port User-Port 
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Listing zur Übertragung von Basicprogrammen zwischen 


zwei C 64 (Schluß) 


| 7130 data 135, 45: ren " „.2c 85 2d 
| sta Id und speichern. 
| 7130 data 1685, 46: rem " „..ze a5 Ze 
| lda ?e H-Byte Basic-Ende 
‚ 7150 data 253, 0: rem " „.30 89 00 
| sbc#00 Carry-Flag subtrahieren 
, 7160 data 133, 46: rem " „.32 85 Ze 
| sta Ze und speichern. 
; 7200 data 160, 0: rem ". ..34 a0 00 
\ ldy#Oo Y-Register vorbereiten. 
' 7210 data 32,124, -iırem " „.S6 20 7c 
..  jsr „.7e 1 Byte empfangen 
: 7220 data 145, 45: rem " „.37 91 2d 
sta (Zd}.y und speichern. 
ı 7230 data 230, 45: ren " „.3b e& 2d 
| inc ?2d BASIC-PRG Ende erhoehen 
; 7240 data 208, 2: rem " „.3d do 02 
; bre „.4al ohne Uebertrag 
| 7250 data 250, 46: rem " „.53f es 2e 
inc 2e :H-Byte erhoehen 
: 7300 data 158: rem " ..41l aß 
tay Ende-Bedingung pruefen 
; 7310 data 208, 8: rem " „.42 do 08 
bne „.4c kein Ende 
ı 7320 data 165,252: rem " „.44 a5 fc 
Ida fc 2.Byte=0 ? 
ı 7330 data 208, 4: rem " „.45 do 04 
' bne „.4c nein, kein Ende 
: 7340 data 165,253: rem " „.498 a5 fd 
: ida fd 3.Byte=0 ? 
ı 7350 data 240, 9: rem " „..4a #0 09 
beg ..55 ja, dann Ende 
: 7560 data 165,252: rem " „.4c a5 fc 
i Ida fc vorletztes Byte kellern 
ı 7370 data 133,253: rem " ..de 85 fd 
\ sta fd 
ı 7380 data 132,252: rem " „.50 84 fc 
| sty fc letztes Byte kellern 
| 7390 data 724: rem " „.S2 18 
i eic . Sprungbedingung 

7a00 data 144,223: rem " „.533 90 d? 


bcec „.34 weiter machen. . 
7300 data 22, P,l1öbırem " „.55 20 50 
ad jsr addd ECLR-Befehl 
7510 data 32, 51,155:rem ". .„.59 2052 
a5 jisr a533 BASIC-Zeilen binden 


75320 data 76,133,227:remn " „.Sb 4c 55 
e3 jimp e385 in READY-Modus springen 
7330 : . 

BO00 rem " Transport-Routinen: 1 BYTE Se 
nden: £..5e 

8010 : 


8100 data 141, 
dd sta ddol 
Silo data 152,147: rem " „.sil a2 93 

Idx#93 VALID-Signal senden 
8115 data 142, 0,?22l:rem " „.ö3 Be 00 
dd stx dd6o 


! 1,221:rem " „.5Se 8d O1 
1 
| 
i 
| 
| 8120 data 173, 135,2Zl:rem " „.öb ad Cd 
| 
& 
| 
; 
; 
i 


AKKU in USER-Port 


dd 1da ddöd BUITTUNG laden 


S125 data 708, 11: rem " „_.d?P do 0b 
bne .„..76 QUITTUNG empfangen 

8130 data 202: rem " „_.döb ca 

° dex abzaehlen der Zeit 
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8135 data 208,248: rem " „.sc dü #8 
bre „.66 Veberschreitung” 
8140 data 32,145, -isrem " „.de 20 Bf 
.„. . jsr „.Bt USER-Fort als Eingang 
8150 data 162, 93: rem " „./l a2o05 
1d«#05 Fehler-Nummer Bet.Systen 
8155 data 78, 58,iö4:ırem " „.7E Ac 3a 
a4 imp adıa Fehler-Routine Rechner 
B150 data 152,151: rem " „./a a2 97 
1dx#977 VALID-Flag aus 
8155 data 142, 0,22l:rem " „.78 Be ©o0 
dd stx ddoo VALID zuruecknehmen 
8170 data 98: rem " „.7b &0 | 
rts RETURN | 
eil80 : | 
B200 rem " Transport-Routinen: 1 BEYTE Em | 
pfangen: #..7c 
8202 : | 
8204 data 173, 13,2Z2lırem " „.7c ad od 
dd 1da ddod VALID holen | 
e210 data 240,251: rem " „.7r fFO#b 
beg „.7c warten | 
S2Z0 data 175, 1,22lırem " „.Si ad öl | 
dd 1da daöl BYTE holen | 
8730 data 162,147: rem " ..B4 a2 93 
1dx#93 GUITTUNG-Signal senden 
8235 data 147, 0,22lırem " „.86& Be 00 
dd stx« ddüö i 
8240 data 162,151: rem " „.89 a2 97 | 
1dx#97 QUITTUNG-Signal = 
| 
| 
| 
| 
| 











8245 data 142, 0,221:rem " „.Eb Be 00 
dd stx ddoo 


8250 data 96: rem " „.Be 40 
rts RETURN 

8260 : 

7000 rem " Richtungs-Register auf Eingan 

g: #..8f 

9010 rem " Ausgan 

g: $..72 

9020 : 

9100 data 182, 0%: rem " „.df az 00 
1dx#00 USER-Fort als Eingang 

7110 data 44,162,255:rem " ..72 a2 ff 
ldx#ff USER-Port als Ausgang 

97120 data 160,151: rem " „.24 a0 97 
1dy#97 


7130 data 140, 
dd sty ddoo 


O,2Zl:rem " „.95 98c 00 
VALID-Flag zuruecksetzen 


9140 data 142, 3,22lırem " „.99 Be 03 

dd stx ddO3 USER-Richtung setzen 

9150 data 96: rem " „.I9c &0 
rts RETURN 

9160 : 

ZOG rem " Initialisierung des Forts 
£..9d 

gz1O : 

gFZZ0 data 173, 13,221l:rem " „..Id ad od 


dd Ida ddüd VALID laden 

9230 data 208,251: rem " „.a0 do fb 
bne „.P9d Flag gesetzt:noch einmal 

9240 data 76,147, -lırem " „.aZ2 4c Bf 

.. . JImp...Bf USER-Fort als Eingang | 


ready. 
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Druckerl 
Floppy ein- 
oder ausge- 
schaltet? 


Diese Prüfroutine verhindert wir- 
kungsvoll die Fehlermeldung: DEVICE 
NOT PRESENT ERROR und hilft, ein 
Programm absturzsicher zu machen. 


Bei der Prüfroutine handelt es sich um ein Unterprogramm, 
das mit GOSUB 10080 aufgerufen wird. Vor dem Aufruf der 
Routine muß festgelegt werden, welches Gerät überprüft wer-. 
den soll (Gerätenummer DN%: 4 für Drucker, 8 für Floppy). Die 
Auswertung der Variablen DR% (0 = aus, 1 = ein) ermöglicht 
eine Aussage über den Einschaltzustand. 

Prüfroutine 

Zeile 10080: 

Um die Maschinenroutine nicht bei jedem Aufruf des Unterpro- 
gramms einzulesen, wird sie nur beim ersten Aufruf eingele- 
sen. 

Zeile 10090 und 10100: 

In die vom Computer nicht benutzte Speicherstelle 2 der Zero- 
page wird die Device-Nummer DN% (4 für Drucker, 8 für Flop- 
py) gePOKEt, das Maschinenprogramm aufgerufen und an- 
schließend der Inhalt der Speicherstelle 2 überprüft. War das 
Carry-Bit gesetzt, ist das entsprechende Gerät ausgeschaltet. 
Die Variable DR% wird entsprechend dem Einschaltzustand 1 
(= ein) oder O (= aus) gesetzt. 

Zeile 10140 bis 10170: 

Basic-Lader der Maschinenroutine 

Nach dem Löschen des Bildschirms wird der Variablen DN% 
die entsprechende Geräte-Nummer (4 für Drucker, 8 für Flop- 
py) zugewiesen und die Prüfroutine aufgerufen. Die Abfrage 
der Variablen DR% (Device ready) ermöglicht es, eine Aussa- 
ge über den Einschaltzustand (0 = aus, 1 = ein) des entspre- 
chenden Gerätes zu machen. 

Wird die Prüfroutine beim Diskettenlaufwerk angewendet 








nal der Floppy gelöscht werden, da durch die Prüfung ein Syn- 
tax Error (31) vom DOS gemeldet wird (Ansprung des NMI- 
Vektors in Zeile 160). 


(Werner Pfeil/gk) 


ı0 PRINT'L WERNER FFEIL” 

20 PRINT" AM MALZBUECHEL 4" 

30 PRINT" 5000 KDELN 1" 

40 FRINT" 0221/24 25 53" 

50 PRINT:PRINT” &4'’ER MAGAZIN 
8/84" 


S1 PRINT"SERIELLER BUS — TEST":PRINT 
52 PRINT"UEBERPRUEFUNG OB DRUCKER DDER 


53 PRINT"FLOPPY EIN/AUSGESCHALTET SIND" 


&0 PRINT:PRINT:PRINT" TASTE” 


‘70 POKE198,0:WAIT198,1 


100 REM # DEM-PROGRAMM * 

110 : 

120 PRINT CHR#1147) 

130 DNZ=4:60SUB 10080:REM DRUCKER 

140 IF DRZ=1THENPRINT"DRUCKER EINSESCHAL 

TET" 

150 

TET" 

1&0 DN%4=B:605UB 10080: IF DR%=1 THEN OPEN 

1,8,15,"UIs":CLDSE 1:REM FLOPPY 

170 IF DRZ=1THENPRINT"FLOFPY EINGESCHAL 

TET" 

180 IF DRZ=0THENPRINT"FLOPPY AUSGESCHAL 

TET" 

1970 

200 

210 

220 

10000 REM * PFRUEFROUTINE DEVICE EIN? * 

10070 : 

10080 IF FT%=0 THEN FT%=1:G60SUB 10140:RE 

M ROUTINE NUR BEIM 1. MAL EINLESEN 

10090 POKE 2,DNZ:5Y549152:1IF PEEK(tZI=0 T 

HENDR%=1: RETURN: REM DEVICE ’EIN’ 

10100 DR%4=0: RETURN: 
REM: DEVICE 


IF DRZ=0THENPRINT"DRUCKER AUSGESCHAL 


END 


"AUS’ 
10110 : 
10120 REM * MASCHINENROUTINE EINLESEN * 

10130 : 

10140 FOR ADN=49152T049185:READ A:POKE AD 
„ArNEXT AD 

10150 DATA1649,1,160,192,162,33,32,187,25 
5,169,1,160,15,166,2,32,186,255,32 

101&0 DATA192,255,176,2,169,0,133,2,169, 
1,32,195,255,96,32 


10170 RETURN Ein Demo-Programm. Die 





(DN% =8), so muß nach dem Aufruf der Routine der Fehlerka- READY. Prüfroutine befindet sich ab Zeile 10000 
i 9a1B FIIR REN | 
i gaza ? %  ASSEMBLER-LISTING DER x 
| za39 5% PRUEFROUTINE DEYICE EIN ? * | 
2948 2 % GESCHRIEBEN FUER C- 64 x 
gasıı : x <C) 1984 BY WERNER PFEIL x | 
| 82E09 FRI RK | 
gera 5 | 
| eıao .BA $C900 | 
ceaa- Aa ai 118 LOA #91 ; LAENGE ! 
cee2- AB CO sı28 LDY 43009 5 ADRESSE HIGH | 
coa4- nz ei eıaa LOX #21 : ADRESSE LOW ! 
cans- 28 BO FF 21a0 JSR $FFED 5 PARAMETER FUER FILENAMEN 
caos- na al aısa LDR #$81 » FILE-NR. | 
COBB- na or sısa LOY #$0F 5 SEKUNDAERADRESSE | 
caaD- As a2 eıra LDx +02 } DEVICE-NR. ! 
\ coaF- 2a BA FF 0138 JSR $FFBA > FILEPARAMETER SETZEN \ 
| caie- 22 ca FF 2198 JSR sFFca ; OPEN | 
ca15- Ba aa s2ua BCE $+C913 » WENN AUSGESCHALTET, DANN i 
| caı7- ns 2a @210 LDA #308 Der Inhalt der ; 
caıa- 35 02 g220 sTA #02 ? ERGEBNIS DER PRUEFUNG Zei \ 
| CaıE- AS 01 a238 LDA #301 » FILE-NR. \ „ DATA-Zellen | 
| caın- 2a Ca FF 8248 JSR $FFC3 > CLOSE mit zugehörigem { 
ca2a- 60 a25a RTS Assembler- 
ce21- 28 2260 .BY $20 


Listing 


v2r7& «EN 
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Analoger Meßwert rein — 
analoger Stellwert raus 


In diesem Beitrag wird eine einfache Anordnung für den Commodore 64 
beschrieben, bei der ohne Umschalten ein Analogsignal eingegeben und 
ein Analogstellwert ausgegeben werden kann. 


Für einen regeltechnischen Versuch wurde eine Anordnung 
gebaut, bei der über eine dauernd mit dem Computer verbun- 
dene Meßleitung ein analoges Meßsignal aufgenommen, im 
Computer verarbeitet und über die 8-Bit-Datenleitung des 
Userports und einen 8-Bit-D-A-Wandler wieder ein analoges 
Stellsignal als Antwort ausgegeben werden kann (siehe Bild) 








Analog-Meßspannung 
EIN 


Spannungs-Frequenz-Wandler 


Rechner 


Analog-Stellwert 
AUS 


8-Bit D/A-Wandler 


Userport 


Ein- und Ausgangsschaltung 


Diese Anordnung dürfte auch für viele Bastelzwecke sehr in- 
teressant sein. Für den Analogeingang wurde mit dem IC 
LM311 ein Spannungs-Frequenzwandler gebaut. Die Fre- 
quenz des erzeugten Rechtecksignals wurde über eine ein- 
adrige Schirmleitung mit Ader auf PINS = CNT-2 des User- 
ports und Schirm auf PIN1 = GND zur Frequenzmessung ein- 
gegeben. Diese Anwendung ist prinzipiell in [1] beschrieben, 
allerdings mit dem kleinen Schönheitsfehler, daß die Sache so 
nicht funktioniert. Trotzdem ist das erwähnte Buch sehr emp- 
fehlenswert wegen seiner Vielfalt und Verständlichkeit. Im fol- 
genden wird zunächst ein funktionsfähiges Programm gezeigt 
und anschließend werden wesentliche Verbesserungen unter 
Verwendung einer Assembler-Routine geschildert. Ein Studi- 
um der Literatur [1 bis 4] zeigt, daß für eine einfache Frequenz- 
messung bis hinauf zu etwas mehr als 20 KHz der im CIA 6526 
(Complex Interface-Adapter-IC) eingebaute Zähler und die Sy- 
stemuhr TI als Zeitbasis in Frage kommen. Wer einen Recht- 
eckgenerator zur Hand hat, kann dies auch gleich (TTL-Pegel 5 
V einstellen) mal ausprobieren! Geben sie das folgende Basic- 
Programm ein und schließen Sie den Generator — wie be- 
schrieben — an CNT-2 an. 










FRERNIENEMESEUN GER FF 
&1.235 


Listing »Frequenzmessung« 


21h 2SCHA+B) 
GOTOLAB: REM | DAUERSCHLEIFE ! 


78 Z84r 


Es wurden folgende Adressen verwendet: 

Dez. 56590 Hex DDOE Kontrollregister für Zähler 1 
Dez. 56580 Hex DDO4 Zähler 1 Low-Byte TIL 
Dez. 56581 Hex DDO5 Zähler 1 High-Byte TIH 

In Zeile 100 wird das Kontrollregister für den Zähler 1 so pro- 
grammiert, daß dieser in der gewünschten Art arbeitet und zu- 
nächst im STOP-Zustand ist. In Zeile 110 wird der Zähler mit HB 
= 255 und LB = 255 geladen; er hat die Eigenschaft, diese 
zwei Byte nach dem Start herunterzuzählen (Dez. 65535 bis 
0). Der Zähler kann nun aber nicht, wie in [1] erwähnt, mit dem 
Setzen des High-Byte von T1 (TH) gestartet werden, sondern 
durch den Befehl Poke 56590, 241, bei dem Bit O im Kontroll- 
register auf 1 = START gesetzt wird. Die TI-Uhr wird bei die- 
sem Programm »im Vorübergehen« gelesen, die beiden IF- 
Abfragen geben den Start- und den Auslesebefehl für den 
Zähler. 

Im Kontrollregister haben nur Bit O und 5 wichtige Funktio- 
nen: 

11110001 = Dez. 241 — Zähler Start 
11110000 = Dez. 240 — Zähler Stop 

Die anderen Bits sind als »Dauermaske« aufzufassen. 

Das Basicprogramm zeigt jedoch leider bei der praktischen 
Anwendung Anzeigeschwankungen von etwa 2 Prozent und 
manchmal weit darüber. Schuld daran ist sicher die Programm- 
sprache Basic, welche zum Beispiel aufgrund von zu langsa- 
men Bearbeitungszeiten des Basic-Interpreters in den IF 
Abfragen ziemliche Fehler in der Zeitbasis zu verursachen 
scheint. Gelegentlich kommt die ganze Messung aber auch 
noch stärker »aus dem Tritt«. Geht man dazu über, die Uhr TI 
nicht »im Vorübergehen« abzulesen, dann kann man schon ei- 
ne etwas bessere Genauigkeit erreichen. 











Der 


sammen 





AS TE-FROGRAMME FRERUENZMESSUMDSSSRRSEE 
Pe) 





:FOKESIESEL.235 






tee ee a I 


SEIT LT Dr ma 


& 


A 








Listing »Frequenzmessung« 2 


In diesem Programm wird in Zeile 120/130 durch EinPOKEn 
von OD in die drei TI-Register 160, 161, 162 die Uhr Tl jedesmal 
neu gestartet, wobei Register 162 des »schnellsten Räd- 
chens« zuletzt genullt wird. Hierdurch entfällt die erste IF- 
Schleife des Starts. Benützt wird im Prinzip nur Regsiter 162, 
in welchem die Uhr von O bis 255 in Schritten von 1/60 s 
(Jiffies) läuft. Die beiden anderen Register werden nur zur Si- 
cherheit genullt. 

Ausgehend von diesem Programm wurde das folgende 
Assembler-Programm geschrieben, das im Prinzip den glei- 
chen Ablauf hat, bei dem aber die Startbefehle für Zähler und 
Uhr TI sowie der Stop-Befehil für den Zähler und vor allem die 
Zeitabfrage und das Ablesen »blitzschnell« ablaufen: 
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DIGE 138 CFA =  _&DD8E 
noad 118 TIL = #Lbo4 
Does 128 TIH = 0095 
Ganz 134 TIM = AZ 
Se 131 Tri = Ela” 
kani 132 Trz = Al 
300 148 = Zu DE 
caad A Fo 158 Lon  #&Fö 
Caaz2 SD BE DI 1e4 STAA CRRA 
a3 na ge Lok #306 
Lad 55 Ad ze STAA #Tr1 
caa3 25 Al er STAA #Tr2 
CaaB ES Fe 23H =TA  #TIM 
Caau Fa Fi 24 LIA  #$Fl 
CagF SD GE DD ea. STAA CFA 
ralz RS Az 264 MR LDoA  #TIM 
als 13 36 £7E EMPOO HERE 
„öis Da FA zo EBENE MA 
2a138 RE 95 DD wa LIm TIH 
calB RE ad DD >08 LDr TIL 
COIE 64 328 RTS 

Sa „EH 


Listing »Frequenzmessung Maschinensprache« 


FOR I = 45152 TO 43182 - 
READ #:POKEIL.#:S=5+8:NEAT 
DATA169, 248,141, 14,221.169, 


4.133,160,133. 181,133 
3a DATAISZ.169, 241.141, 14,221.165, 162.201. 60.208,250 
a DATAIF4. 221.172, 4,221. 36 
IFS<> 45651 THEN FRINT"FEHLER IM DATAS" END 
PRINT"OK" 


Listing »Basiclader« 


Nach einmaligen RUN-Lauf kann dieses Programm immer 
mit SYS 49152 aufgerufen werden, der Basiclader kann dann 
gelöscht werden (vorher natürlich speichern!). Das Programm 
arbeitet einen Durchlauf des Meßzyklus ab und kehrt dann 
nach Basic zurück, zuvor hat es jedoch HB und LB des Zäh- 
lers, TIH und TIL, nach Adresse Dez 781 und 782 abgelegt. 
Aus diesem »Briefkasten« können die Werte mit PEEK geholt 
werden. Als Beispiel ein Miniprogramm zur dauernden Fre- 
quenzanzeige in Hz: 


57543152 


A=PEEKt7S13: BSPEER (732) 


FRINTESS3S-EISHAHB) 


SOTOIRR: REM IIDAUERSCHLETIFE! 





Listing »Frequenzanzeige« 


Mit diesem Programm wurde eine Genauigkeit von deutlich 
besser als 1 Prozent erhalten. Versuche zeigten, daß selbstim 
praktischen Betrieb mit einem Spannungs-Frequenzwandler 
die Meßdauer ohne Verschlechterung des Ergebnisses auf 
30 x 1/60 s + 0,5 s verkürzt werden kann. Dies kann man im 
Basiclader dadurch bewerkstelligen, daß in Zeile 130 die Zahl 
60 in 30 geändert wird. 

Bei der praktischen Anwendung wurde entsprechend [1] 
beziehungsweise nach Angaben des Herstellers [5] mit dem 
IC LM 331 folgender Spannungs-Frequenzwandler gebaut: 
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GND (Schirm) 


Steilheit: 10 kH2/V 
R,, R,, R, Metallfilm 1% 
C, MKP-Kond. guter Qualität 


Schalitbild »Spannungs-fFrequenzwandler« 





Die Schaltung funktioniert sehr gut und recht genau! Für die 
»Stellenwertausgabex wurde mit dem 8-Bit-D-A-Wandler 
ZN428 folgende Schaltung aufgebaut: 


Schaltbild »Stellwertausgabe« 


Digital ein 





*: Bei »Freigabe« Low 
oder Offen: Wert wird laufend »durchgeschoben«. Bei »Frei- 
gabe« High: Wandler gesperrt, alter Wert wird noch angezeigt 





Die Ausgabe über den Userport erfolgt mit Hilfe folgender 
Befehle: 
Poke 56579, 255 (Datenleitungen PBO bis PB7 auf Aus- 
gabe) 
Poke 56577, x (x = Dez.-Wert der Ausgabe) 
Der Wandler erzeugt dann eine zu x proportionale Spannung. 
Dem Nachteil einer V/f-Wandler-Zeit von = 0,5 s steht der 
Vorteil gegenüber, daß keine Ein-Ausgabeleitungs-Umschal- 
tung erforderlich ist, die Signale stehen stetig am Port zur Ver- 
fügung. Eine mehrkanalige Ausführung des Eingangs durch 
Multiplexen ist denkbar. Beim Ausgang ist dies sicher etwas 
schwieriger. \ 
Lheratır (Dr. Ernst Breitz/rg) 
11] Anderson A,, Kullbjer A.: »Messen, steuern, regeln mit dem VC 20 und Commdore 64«, Haller-Verlag, 
Saarbrücken 
[2} Angerhausen, Brückmann, Englisch, Gerits, »64 intern«, 
Data-Becker, Düsseldorf 
[3] Floegel E., »Hardware-Erweiterungen für Commodore 64«, Hofacker-Verlag, Holzkirchen 


[4] Brückmann, »Der Commodore 64 und der Rest der Welte; 
Data-Becker, Düsseklorf 


[5] National-Semiconductor, Daten-Blatt zu LM 131/231/331 
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»Kudiplo« er- 
füllt Schüler- 
träume 


Eine komplette Kurvendiskussion ist 
für Computerbesitzer eine ganz einfa- 
che Angelegenheit. 


Wer hätte sich da nicht gewünscht, solche lästige Arbeit 
nähme ihm ein fleißiger Computer ab. Diesen Wunsch erfüllt 
»Kudiplo« jedenfalls für den, der einen VC 20 mit wenigstens 3 
KByte Erweiterung besitzt. Für den C 64 ist »Kudiplo« leicht 
einzurichten. Nur die Bildschirmbefehle sind anzupassen. 

Benötigt wird außerdem der VC 1520, der Printer-Plotter 
von Commodore, der die grafische Darstellung mit einer Präzi- 
sion möglich macht, die keine Wünsche offen läßt. Mit »Kudi- 
plo« kann dann jede beliebige mathematische Funktion im frei 
wählbaren Bereich und Maßstab dargestellt werden. Außer- 
dem wird auf Wunsch eine Kurvendiskussion ausgedruckt mit 
Nullstellen, Sprungstellen und Extrema, deren Koordinaten bis 
zur vierten Dezimalstelle genau berechnet werden. 

Hier die besonderen Fähigkeiten des Programmes: 

U] Auf beiden Koordinatenachsen kann der dargestellte Be- 
reich freigewählt werden durch Bestimmung des jeweils unter- 
sten und obersten Wertes. 

U Die zweckmäßigste Positionierung der Koordinatenachsen 
wird automatisch ermittelt (Normalfall: Kreuzung im Nullpunkt). 
U] Entsprechend dem gewählten Bereich wird die Skalierung 
des Achsenkreuzes berechnet und in die Grafik geschrieben. 
U] Die Maßeinheit beider Achsen beträgt dabei immer 10 mm, 
so daß Zwischenwerte leicht aus der Grafik ausgemessen und 
berechnet werden können. 

U Der frei wählbare Darstellungsbereich macht es möglich, 
durch Wahl eines Teilbereiches Ausschnittvergrößerungen 
der Funktion in jedem beliebigen Maßstab darzustellen (!). 

U In ein Achsenkreuz kann nach der ersten auch noch eine 
zweite und beliebig oft noch eine weitere Funktion (etwa zum 
Vergleich mit der ersten) geplottet werden — solange nicht mit 
»Paper feed« der Papiertransport betätigt wurde. 

[] Jede Funktion wird in anderer Farbe gezeichnet und die zu- 
gehörige Gleichung mit gleicher Farbe in die Grafik eingetra- 
gen. 

U] Auf Wunsch wird von der zuletzt dargestellten Funktion die 
Kurvendiskussion erstellt. 

LI Dabei werden ermittelt: Extrema, Maxima, Minima und Sat- 
telpunkte sowie die Nullstellen unter Angabe der Steigung und 
die Sprungstellen mit ihren Koordinaten. 

U) Verarbeitet werden alle dem VC 20- (beziehungsweise C 
64) geläufigen mathematischen Funktionen. Beiihrer Eingabe 
istnur auf die Einhaltung der üblichen Syntax zu achten. 

U] Ein besonderer Vorzug von »Kudiplo« istschließlich, daß das 
Programm unzulässige Werte erkennt und unberücksichtigt 
läßt. SOR(X) führt darum bei Werten von X < O ebensowenig 
zum Abbruch des Programms wie 1/X beiX = 0. 

Die Gebrauchsanleitung für den Benutzer wird über den 
Bildschirm angegeben. Unlogische Eingaben werden zurück- 
gewiesen. 

Das Programm erfragt zuerst den Bereich, in welchem die 
Funktion dargestellt wird (Zeilen 470 bis 540). Die entspre- 
chenden Werte werden in den Variablen XU, XO, YU und YO 
gespeichert. Aus diesen Werten wird die Lage des Nullpunk- 
tes auf beiden Achsen (XN und YN) und die Maßeinheit für die 


sn Aka 


VC 20+3 KByte 


Skalierung der Achsen (XE und YE} berechnet. Weiter wird an- 
schließend die darzustellende Funktion in den Zeilen 585 bis 
620 erfragt. 

Die folgende Routine dient dazu, die Funktion in das Pro- 
gramm zu übernehmen, indem sie zusammen mit ihrer Ablei- 
tung in die Programmzeilen 65 bis 80 und 205 geschrieben 
wird. Die Routine bedient sich dabei des bekannten Verfah- 
rens der Eingabe über Bildschirmspeicher und Tastaturpuffer: 

Die zu verändernden Zeilen werden auf den Bildschirm ge- 


“schrieben, dann wird der Tastaturpuffer mit der erforderlichen 


Zahl von »RETURNs« gefüllt. Bei dem dann folgenden Pro- 
grammabbruch (Zeile 660) arbeitet der Computer die Befehle 
im Tastaturpuffer ab. Damit bei der hiermit bewirkten Änderung 
des Programmes die zuvor gewählten Parameter nicht verlo- 
ren gehen, werden auch diese (mit Eingabe in die Zeilen 45 
und 50) gerettet. Damit diese Routine funktioniert, dürfen die 
Zeilennummern 45, 50, 65, 70 und 205 nicht verändert wer- 
den!! 

Nachdem sich das Programm durch »GOTO 45« selbst wieder 
gestartet hat, werden zunächst die Parameter aus den Zeilen 
45 bis 55 und aus den Zeilen 65 bis 80 die definierten Funk- 
tionen eingelesen. 

Nun endlich kann der Plotter in Funktion treten. Er zeichnet 
die X-Achse (Zeilen 100 bis 140) und die Y-Achse (Zeilen 145 
bis 165) in der Größe von 400 x 400 Druckersteps (= 8x8 
cm). 

Es folgtin den Zeilen 195 bis 225 die Berechnung der Funk- 
tionswerte, beginnend mit dem niedrigsten Wert von X und mit 
der Schrittweite J von normalerweise 1/400 des Gesamtbe- 
reichs. Wer die Ausgabe (auf Kosten der Auflösung) beschleu- 
nigen möchte, erreicht dies durch Zuweisung eines höheren 
Wertes für J. 

Die Zeilen 185 bis 195 bedürfen einer etwas ausführlichen 
Erklärung: Normalerweise würde das Auftreten unzulässiger 
Werte in der Funktion von X zum Abbruch des Programmes 
führen, so zum Beispiel wenn der Logarithmus von Werten 
X<.O gebildet werden oder durch X=0O dividiert werden soll. 
Die Verarbeitung solcher Funktionen erfordert einen Eingriff 
ins Betriebssystem: Der Zeiger für die Fehlerbehandlungs- 
Routine (Speicherplätze $0300 und $0301) wird so (mit Zeile 
190) verbogen, daß er jetzt auf einen in den Kassettenpuffer 
gePOKEten (Zeile 185) Sprungbefehl zeigt. 

Infolge dieses Eingriffs gibt nun das Betriebssystem bei Auf- 
treten eines Fehlers nicht mehr Alarm, sondern beginnt mit der 
Abarbeitung der nächsten (!) Zeile. Restliche Statements in 
der fehlerträchtigen Zeile werden also nicht mehr beachtet. 

Mit diesem Trick wird bewirkt, daß der Sprungbefehl am En- 
de der Zeile 205 normalerweise ausgeführt wird, bei Auftreten 
eines Fehlers aber die Zeilen 210 bis 215 abgearbeitet wer- 
den. Hier wird je nach Art des Fehlers die Null-Fehler-Flag FE 
gesetzt oder der unzulässige Wert von X in der Variablen XW 
festgehalten. Diese Werte sind im weiteren Programmablauf 
behilflich, unzulässige Werte von X zu vermeiden. 


Nach Berechnung aller Werte von X und Ausdruck der ent- 
sprechenden Punkte der Funktion (X;Y) in Zeile 220 wird mit 
den POKE-Befehlen der Zeile 225 der Zeiger für die Fehle- 
rausgabe wieder in den Normalzustand gebracht. Die einge- 
gebene Funktion ist damit fertig geplottet. Das Papier wird vor- 
geschoben, damit das Ergebnis besichtigt werden kann (Zeile 
235). Auf dem Bildschirm erscheint zugleich das Menü (Zeilen 
665 bis 720). Abhängig von der Eingabe verzweigt das Pro- 
gramm nun entweder 
1) zur Eingabe einer Funktion, die in die gleichen Koordinaten 
geplotten werden soll, oder 
2) zur Eingabe der Parameter für ein neues Koordinatenkreuz 
oder 
3) zur Ausgabe der Kurvendiskussion, die jeweils nur von der 
letzten dargestellten Funktion erstellt werden kann. 
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Im Rahmen der Routine für die Berechnung der Kurvendis- 
kussion werden die Fehler-Flags XW und FE dazu verwendet, 
unzulässige Werte auszulassen. 

Nun werden zuerst die Null- beziehungsweise Sprungstel- 
len (Zeilen 285 bis 360) und dann die Extrema (Zeilen 365 bis 
390) ermittelt. Doch nun viel Spaß beim Arbeiten mit »Kudiplo«. 





(Jürgen Curdt/ev) 


5 REMARRRRRHRRHRKUDIFLORR RR HN 
10 REM FUNKTIONEN DISKUTIEREN UND 

12 REM FLOTTEN MIT VE-20 +3K 

15 REM UND PRINTER-FLOTTER VE-1520 

20 REM JUERGEN CLURDT 

25 REM KESSEMEIERWEGS 5 

3G REM 4973 DETMOLD 

35 REMRRRKERHHRHHHHRHHNHRF IH TH HH HN HH HH NR NR 
40 FOKES6879 „25: 607045 
45 XU=-4:X0= 4: YU=-4: YD= 
50 XN= 780: \YN= 0 

55 XE=S(X0O-XU} 718: YE=S(YOD-YU)3 7/16 

&0 REM FUNKTION BIS 80 

65 DEFFNFOXI=HIER WIRD DIE FUNKTION EINS 
EFUEST 
70 F#F="HIER WIRD DIE FUNKTION EINGEFUEGT 
75 DEFFNFLOXI={FNFCX+1E-43-FNFI(X-1E-43)37 
PE-4 
80 DEFFNFZUÜX)= 
I/ZEr4 
85 OPEN1,5&,1:0FENZ,4,2:0PENF,6,3:0PENIiO, 
ö 
50 PRINT"8";: IFP=0G0T0550 
95 REM KREUZ ZEICHNEN 
100 PRINT#Z,O:PRINT#2,1 
105 IFSVTHEN17O 

110 PRINT#1O0:PRINT#1, 
"M"305;-200:PRINT#IO 


4:0Y= 0 
| 
| 

115 FRINT#1,"M"3805 YN:FORI=OTOLASTEPZ Ä 
ı 
! 
| 
| 
| 


{FNFLCX+1E-4) -FNFLCX-1E-4) 


"M";05—-440: PRINT#1, 


120 PRINT#1,"I":PRINT#1,"R";054:PRINT#L, 
u 0-4 
125 PRINT#1,"R";-125-14 

130 PRINT#10,INT((XE#I+XU) *100+.5) 7/1005 
135 PRINT#1,"M";80+1#25; YN= PRINT#1,"D";8 
0+{1+423 #255 YN 
140 NEXT:PRINT#1 ,"M"375+1#253 YN-4: PRINT# 
10, "aM: 
145 PRINT#L,"M"3XN5-200 


130 FORI=OTO14STEP2 :PRINT#1,"I":PRINT#1, 


"R" 445 0: PRINT#1," "5-45 0: PRINT#1,"R"3-30 
;—4 

® 

155 J=YU+INT(YE#100*1+.5) 7100: IFJ<>OTHEN 
PRINT#10,J5 


160 PRINT#L,"M"3 XN; 1825-200: PRINT#1, 
XN; (142) 25-200 

165 NEXT:PRINT#1,"M"sXN-55 I*25-209: PRINT 
#35, 1:PRINT#10,"""5 

170 REM KURVE PLOTTEN 

175 PRINT"IRERIN ETWAS GEDULD BITTE":PR 
INT#2,5V+3 
180 
185 
190 
195 


.n": 


Et="M":FE=0: XW=EXU 

FOKEBS2,76: FOKEB3F „597: POKEBS4 „201 
FOKE7S8 „64: FOKE769,,3 

J=iX0-XU} 7400: FORI=0T0400 

200 X=J#I+XU 
205 Y=HIER WIRD DIE FUNKTION EINGSEFUEGT: 
GSOTO22O 
210 Ef="M": IFX<OTHENXW= Lo 

215 IFX=0THENFE=1:50T023 

ı 220 YeY/YE#2S+OY: TEVSSIOORVE-210THENES=" 
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MT 
M": 6070230 
225 PRINT#1,E#: I+80; YıE#="D" Ä 
230 NEXT: POKE7&B, 58: POKE769 , 176 
235 PRINT#L , "HM" 05 180-8V*25: PRINT#S, 1: PR 
INT#H10,"Y="F$; 
240 PRINT#1, 
245 5070655 
250 PRINT#lL,"M":0;160-5V8*25 
255 FRINT"LDIE KURVENWERTE WERDEN 
BERECHNET 
=260 FRINT#1O:PRINT#3,0: IFNDTFEANDXU=SAWTH 
ENZBO 
265 IFFEANDXW=ÄUTHENPRINT#1O, 
GER WERT BEI 0":60T0275 

"UNZULAESSIGE WERTE IM BERE 
DA 


"M"505-250 


"UNZULAESSI 


270 PRINT#10, 
ICH": PRINT#10, 
RUM NUR" 

275 Xu=XW+.1 
280 PRINT#10,"KURVENDISKUSSION VON X="X 
U"BIS X="XD:PRINT#10 


"WON "’XU® BIS O !ı — 


285 PRINT#10," NULLSTELLEN: " 
290 A=FNF (XU+.1):51=XE/40 I 
295 FORX=XUTOXOSTEPSI1 ar 

300 IFX=OANDFE=1THENZ2S Listing von | 
305 F=FNF (X) »Kudiplo« 
310 IFF+A{OTHENZZS 

=z15 IFABS(F)<1E-&THENC=X:G0T0465 

320 A=F 

325 NEXTX 

330 GOTOS70 


335 
340 
345 
350 C=(5+7}7/72 

355 IFABS(Z-SITIE-SANDABS {FNF CO} IS 1E-3TH 
EN455 

360 IFABS(Z-S)I<I1E-STHENPRINT#HIO," SFRUN 
SSTELLE BEI: "INT (C#1E4+. 5) /1E4: GOTO320 
365 GOTO340 

370 PRINT#1G," EXTREMAsS "sA=FNFILCKUF. 1): 
FORX=XUTOXOSTEPS1 

375 IFX=OANDFE=1THENS9S 

380 F=FNF10X) 

385 IFF*AXOTHENA0S 

370 IFABSCFITIE-STHENG=K: 5OTD440 

395 A=F:NEXTA 

400 PRINT#1,"M"305-275:CL0SE1:CLOSE2:CLD 
SE3:CLOSEIO:END 

405 S=X-.1:Z=X:0=k-.05 

410 IFFNFICCI#FNFLCZITOTHENS=C: GOTO420 
4153 Z=C 

420 C=(5+7)/2 

425 IFABSTZ-S5S)<X1E-&ANDABS (FNFLICYI IS IE-ZT 

HEN440 

430 IFABS(Z-SI<1E-&THENSFS 

435 GSDOTD410 

440 IFABS{FNFZtC)IISIE-STHENFRINT#1O," 
SATTEL" 5 :50T0455 


S=X-.1: Z=X:0=X-.05 
IFFNFICI #FNF CZI<OTHENS=C: GOTO3SC 
Z=C 


445 IFFNF2(C} FPOTHENFRINT#1O," TAL "33 
GOT0455 
450 IFFNFZ{IC}ZOTHENPRINT#IO," HOCH"; 


455 PRINT#10,"C"INTIC#H1EA4+.SY /1EA" /" INT 
FNF(CI#1E4+. SI /1E4"ID ":GOTO39S 

460 REM NULLSTELLEN DRUCKEN 

455 PRINT#10," "INTICH1EI+.SI /1EI:S"/ 
GG} F’=";INT(FNFILCOI#1E2+.SY/1E2 





470 GOTO320 

475 REM PARAMETER WAEHLEN 

480 PRINT" DIE FUNKTION WIRD DARGESTE 
LLT IM BEREICH" 

485 FRINT"BVON" XU, 


"BIS"XO:PRINT"AUF DER 


EEE EIERN 
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X-ACHSE" \ 
490 FPRINT"EVON" YU,"BIS"YO:FRINT"AUF DER 
Y-ACHSE" 
495 PRINT" SDLLEN DIE PARAMETER VERA 
ENDERT WERDEN 7 JiN® 
500 BETAF: IFA#="N"THENRETURN 
5305 IFAFT>"I"THMENSOO 
510 FRINT"BKUNTERSTER WERT FUER X": INPUT 
Xu 
515 PRINT'"BROBERSTER WERT FUER X": 1INPUTX 
0 
320 XE=CXD-XU} 7/18: IFXES=SOTHENFRINT"ES U 


NZULAESSIGER WERT 3":60T0510 
525 IFSGN(XU}=SGN (XD) THENXN=80: 50OTOS535 
| 530 XN=ABS {XU} #25/XE+B0 
535 PRINT"EBUNTERSTER WERT FUER Y"= INPUT 
Yu 
540 FRINT"EEDBERSTER WERT FUER Y"=1INPUTY 
0 
545 YE=tYO-YU/1&: IFYE={OTHENFRINT'IE U 
NZULAESSIGE WERTE 3":6070535 
550 REM EINGABE DER FUNKTION 
5553 PRINT"GMFUNKTIDNEN PLOTTEN UND DISK 
USSION DRUCKEN BE MIT DRUCKER VE 1320” 
560 FORI=0TD21:PRINT"%";:NEXT:PFRINT"R" 
555 IFNOTFTHENP=1:50S5UB475:FPRINT"" 
570 PRINT"ERBERIMALS FUNKTION WIRD DAR- 
GESTELLT: ":PRINT"EIN ="; F# 
575 PRINT'EIE FUNKTION AENDERN 7 
KB J/N" 
580 IFSGNÜYU) ZT >SSN (YDI THENSPS 
585 IFYO{=0OTHENYN=200: DY=ABS {YD#=25/YE) +Z 
00: GOTD400 
590 IFYU>=OTHENYN=-200: 0Y=-200-YUx25/YEı: 
GOTDS00 
595 YN=ABS (YUN#25/YE-200: 0Y=YN 
&00 GETAF: IFAF="N"THENIS 
05 IFA >"J"THENGOO 
&10 FRINT"LERERERGSIB DIE FUNKTION EIN !" 
615 FRINT"BENTHAELT DIE FUNKTION EINEN D 
IVISOR ALS FUN-TION VON X, DANN DEN" 
&20 PRINT" DIVISOR INSGESAMT IN 
MERN SETZEN ! 
625 INPUT" AREEY="; FF 
630 FRINT"UISASDEFFNFOXI="FE" 
635 FRINT"205Y="F#":607T0215" 

640 PRINT"7OFF="CHREF (34) FECHRE& 034)" 
645 PRINT"45 XU="XU"IE XO="XD" BE YU=" YO 
Yo="YO"’B:D0Y="0Y 
650 PRINT"SO XN="XN'IRY 
vP="P:GOTOASAR" 
655 FOKE&S1,197: FORI=SASFTO839: POKEI,13 
XT:POKEI1FB, 8 
&A0 END 
855 FRINT'L 
NEUE FUNKTION 
670 FRINT"KOORDINATEN 

G" 
675 PRINT"BINEUE EOORDINATEN 
N N" 
650 FRINT"RERKURVENDISKUSSION 
EN K" 
685 FRINT"ENDE E 
6970 GETAF: IFAF="N"THENRUN 
675 IFAF="K"THENISO 
700 IFAF="E"THENA400 
705 IFAF<>"G"THEN&FO 
710 SV=5V+1 
715 FRINT"L"::6505UB570 
720 GOTO170 
READY. 


KLAM 


YN="YN:PRINT"EV="S 
:NE 
NEUE AUFGABE 7 KM": PRINT" 
IN DIE GLEICHEN" 
DRUCKEN 
DRUCKE 


AUSGEB 


Listing von »Kudiplo« 
(Schluß) 


| 
i 
I 
i 
| 
N 
| 
| 
| 
\ 
| 
| 
| 
\ 
! 
| 
\ 
| 
x 
| 
& 
! 
3 
& 
| 
| 
| 
| 
i 
| 
| 
\ 
| 
| 
i 
Ä 
|& 
! 
| 
4 
| 
| 
| 
| 
| 
| 
8 
{ 
| 
| 
\ 
| 
L 





9 Ran 





| 
Ä 
Ä 
Ä 
e 
= 
B 


Ve 20+3 KByte 



















Y=C0SCX+2/20) 
Y=2xCOSCX )/X 


SURVENDISKUSSIEN VEN x=-16 BIS Y= 16 


Y=%X 

Y=%X 
YeXXCOSCh) 
V=X/C0SCX) 


URVEHDISKUSSICN VON X=-8 BIS/K= 


NULLSTI LEN: 

SPR! ELLE BEI -?.BU4 

SPRLNDSTELLE BEI:-4.7124 

SPRUNGSTELLG BET?-1.3728 
’>$ 


BEI: ı.5788 
42.917 ) 


-2 


a 


+ 
BILD 3 ZEIGT AUSSCHNITT AUS BILD 2 
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Hardcopy für 
den Sieger 


In unserer letzten Ausgabe konnten 
wir das Görlitz-Interface für Epson- 
Drucker zum Testsieger erklären. Die 
Schnittstelle verdankt diesen Sieg 
hauptsächlich ihrer universellen An- 
wendbarkeit. Dazu gehört auch das 
Ausdrucken eines Bildschirminhaltes 
in Verbindung mit Simons Basic. Daß 
eine Basicerweiterung aber nicht un- 
bedingt notwendig ist, zeigt diese 
Hardcopyroutine. 


Mit dem Maschinenprogramm ist es möglich, Grafiken im 
Maßstab 1:1 (Druckdauer zirka 35 Sekunden, 64000 Dots) 
oder im Maßstab 2:1 (Druckdauer zirka 2 Minuten, 256000 
Dots) ausgeben zu lassen. 

Mit dem Basic-Lader kann das Maschinenprogramm in jeden 
beliebigen Speicherbereich eingelesen werden. Sinnvoller- 
weise sollte das Maschinenprogramm auf die Startadresse 
# 49152 ($C000) gesetzt werden, da hier keine Basic-Bytes 
verloren gehen. Wird trotzdem eine Endadresse für das Pro- 
gramm festgestellt, die unter #40960 ($A000) liegt, so wird 
der Beginn des Maschinenprogramms gleichzeitig als Ende 
des Basic-RAMs ausgewiesen; hierdurch wird verhindert, daß 
das Maschinenprogramm versehentlich von Basic aus über- 
schrieben wird. Zusätzlich kann wegen der Unterschiedlich- 
keit der Interfaces gewählt werden, welche Filenummer, wel- 
ches Gerät und was für eine Sekundäradresse gesetzt werden 
sollen. Damit die Zeichen ohne Umdefinition vom Computer 
zum Drucker gesendet werden, ist es je nach Interface not- 
wendig, eine entsprechende Sekundäradresse zu setzen. 
Entsprechende Hinweise befinden sich sicher bei der Betriebs- 
anleitung des Interfaces. Je nach Bedarf können die Parame- 
ter der Initialisierungsroutine geändert werden. 

Die mit dem Basic-Lader erzeugte Routine sollte man nach 
der Erzeugung abspeichern. Für die verschiedenen Speicher- 
konfigurationen lassen sich natürlich auch verschiedene Hard- 
copyroutinen erzeugen. Die Startadresse und die Endadresse 
des erzeugten Maschinenprogramms werden auf dem Monitor 
angezeigt. 

Wird das Maschinenprogramm abgespeichert, so geschieht 
das unter dem Namen »HC EPSON xxxxx«, wobei xxxxx die 
Startadresse der Routine wiedergibt. 

Hinweise zum Maschinenprogramm: 

— Es wird nur eine Datei auf den Drucker eröffnet; diese kann 
vom Anwender selbst definiert werden. 

— Es können die Grafiken aller acht Grafikbildschirme ohne 
Einschränkungen verarbeitet werden. 

— Nach dem Ende des Maschinenprogramms müssen 16 By- 
te für zwei Umrechnungstabellen freigehalten werden. 
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Ein Beispiel für den Ausdruck in doppelter Größe 


— Es werden nur die folgenden Byte in der Zero-Page für die 
Routine benötigt: $FB-$FF, $02, $A7-$AA. 
Zur Implementierung des Programms: 

Die Routine kann im Direktmodus, aber auch unter Pro- 
grammkontrolle aufgerufen werden. Dabei liegt der besondere 
Vorteil des Programms darin, das sämtliche Parameter durch 
Basicvariablen ausgedrückt werden können. Das Format zum 
Ausdruck eines Bildes in Hires-Grafik lautet: 

SYSA,BC. 


A- bezeichnet die Startadresse der Routine 


B— bezeichnet die Startadresse von einem der acht 
möglichen Grafikbildschirme 

G— gibt den Maßstab der Wiedergabe an. Dabei kann 
man zwischen vier Ausgabetypen wählen: 

0 — gibt das Hiresbild im Maßstab 1:1 aus, zusätzlich 
wird die Grafik invertiert ausgegeben. 

1— gibt das Hiresbild ohne Invertierung im Maßstab 
1:1 aus. 

2 — Der Grafikbildschirm wird im Verhältnis 1:2 vergrö- 
Bert. Zusätzlich wird das Bild invertiert. 

3— Auch hier wird das Bild vergrößert, die Ausgabe 


des Bildes erfolgt ohne Invertierung. 


Wird die Routine als Maschinenprogramm geladen, so muß 
man nach dem Laden »NEW« eingeben, um sämtliche Zeiger 
zu korrigieren. 

Fehlerbehandlung: 

— Werden die Angaben nicht durch Kommata getrennt, er- 
scheint SYNTAX ERROR. 

— Wird eine Startadresse für B eingegeben, die nicht mit der 
Anfangsadresse eines der acht Grafikbildschirme (0, 8192, 
16384, 24576, 32768, 40960, 49152 oder 57344) über- 
einstimmt, so wird je nach Argument »UNDEF’D STATEMENT« 
oder »ILLEGAL QUANTITY« ausgegeben. 

— Bei Angabe eines ungültigen Maßstabs dagegen wird je 
nach Argument »UNDEFD FUNCTION« oder »ILLEGAL 
QUANTITY« ausgegeben. 
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Anwendungsbeispiel: 

Zunächst wird mit dem Basic-Lader die Maschinensprache- 
routine initialisiert. Soll zum Beispiel die Hardcopyroutine zu- 
sammen mit Simons Basic arbeiten, so braucht die vorgese- 
hene Startadresse 49152 nicht geändert zu werden. Die er- 
fragten Parameter Device (Gerätenummer) und Sekundär- 
adresse richten sich nach dem benutzten Interface. Änderun- 
gen können bei Bedarf durch Überschreiben der alten Werte 
vorgenommen werden. Nach korrekter Eingabe wird dann das 
Maschinenprogramm erzeugt. Nach Abschluß dieser Opera- 
tion kann dann noch entschieden werden, ob der erzeugte 
Code abgespeichert werden soll. Wird die Frage positiv beant- 
wortet, so wird das Maschinenprogramm nach Wahl auf Dis- 
kette beziehungsweise Kassette abgespeichert. Zum Schluß 
wird nur noch errechnet, ob das Programm in einem Bereich 
steht, der von Basic aus erreichbar ist. Ist das der Fall, so wird 
das Maschinenprogramm vor einem versehentlichen Über- 
schreiben geschützt. 

Ist dann die Routine einmal erzeugt, so kann man mit der 
Ausgabe von Hires-Grafiken beginnen. Erzeugt man zum Bei- 
spiel mit Hilfe von Simons Basic eine Hires-Grafik, so wird die- 
se mit SYS x00x,57344,1 im Originalmaßstab ausgegeben. 
Dabei bezeichnet xxxxx die Anfangsadresse der Routine, bei 
57344 liegt der Grafikbildschirm von Simons Basic und der 
letzte Parameter 1 gibt an, daß die Grafik im Maßstab 1:1 ohne 
invertierung des Bildes ausgegeben werden soll. Nach ord- 
nungsgemäßer Eingabe des SYS-Befehls beginnt der Drucker 
das Bild auszugeben. 

Bei Bedarf kann man dann zu einem späteren Zeitpunkt die 
abgespeicherte Maschinenroutine nachladen. Liegt sie im Ba- 
sicbereich (bis #40959,$9FFF), so kann man durch Abtip- 
pen und Starten der Zeilen 144 bis 146 des Laders erreichen, 
daß das Programm vor Überschreibung geschützt wird, ohne 
gleich den gesamten Lader zu starten. Dazu ist in diesen Zei- 
len die Variable AN durch die Startadresse der Routine zu er- 
setzen. 

Sonstige Hinweise: 

Bevor die Routine beginnt, muß der Drucker bereits einge- 
schaltet sein. 

Werden eventuell andere Codes für die Erzeugung der 
Hires-Grafik benötigt, so sind die Steuercodes, die die Bit- 
Image Schreibweise des Druckers steuern, zu ändern. Das 
hier vorgestellte Maschinenprogramm ist für den FX-80 aus- 
gelegt, ist jedoch auch auf anderen Druckern lauffähig. Da das 
Assemblerlisting nicht abgedruckt werden kann, können sich 
Interessierte gerne schriftlich an mich wenden. 

{Frank Lonczewskij/gk) 





Ein Beispiel für den Ausdruck in einfacher Größe 
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| iDG REM FE HFSHTHEHKHEHHEERSHRHE HEHE 
SESFELEESSHFSHHFFHEEI FH 

| 101 REM * 

\ x 

‚ 102 REM ® HARDECOPYROUTINE FUER EFSON-D 
IRUCKER, BASITC-LOADER #* 

| 103 REM * 


i * 
104 REM * COFYRIGHT JUNI 1704 BY F 
ı RANK LONGZEWSHI * 


33, TEL.23:02302780933 %* 

105 REM # CURSORSTEUERZEICHEN STEHEN IN 
KLAMMERN: "ED" UND "10 &* 

107 REM RR 
ERHEERKEHNHEREREHHE II 

108 FRINT"IDLEAR,RIGHT1O,RYSONIEFSON HA 
RRCDFYROUTINELRVOFF DOWNI" \ 

107 INFUT"STARTADRESSELRIGHT7I14915SZILEF 
T71"ıANsIF ANSO OR AN>SIZZ48 THEN 107 

110 INPUT"’FILENUMMERLRIGEHTFI1Z7EILEFTSI" 
sLF=IF LF£il OR LF>255 THEN 110 

ıi13 INFUT"BEVICELRISHTIZI4LLEFTSI"SDNGI 
FODNZA OR DN>1S THEN 111 

112 INFUT"SEKUNDAERADRESSELRIGHTZIALLERF 
T2I":SNS: IF SN{IO OR 5N>15 THEN 112 


| 105 REM # 5810 WITTEN &, FROEBELSTRASSE 


8 


| 113 I=AN:PRINT"ÜDOWNIJICH ARBEITE ! BITT 
!E ETWAS GEDULD." 

: 114 GOSUR 147 

;ı 115 IF RE THEN GOSUB 158:5070 117 

. 116 FOKE I, 

| 4117 FS=FS+AsRE=0: I=I+1: IF I-AN{S2B THEN 
: 114 

ı18 IF FS{:57274 THEN FRINT"PFRUEFSUMMEI 
; FEHLER !":END 

: 117 FPOKE AN+4?2,DN:REM DEVICE SETZEN 

' 120 POKE AN+454,5N: REM SEKUN. SETZEN 


iz2ıi POKE AN+AOD,LF:IFORE 
‚ #+17&6,LF:POEE AN+Z44,LF 
| ıREM FILENR. SETZEN 
: 122 FRINT"LELEARIEFSON HARDECOFYROUTINE 
; IMITALISIERT" 

| 125 EK=AN+475: B=INT (K/256) ıK=K-B#254: FOK 
E AN+47,K:FOEFE AN+49,B 

‚ 124 FRINT"IDOWNISTARTADRESSEELRIGHT42: "3 
: AN 
. 125 
12& 


127 


AN+7Z,LF:FORE AN 


PRINT"ENDADRESSELRIGHT&1: "3 AN+527 
PRINT"FILENUMMERERIGHT&I:";LF 
PRINT"DEVICELRIGHT101:":DN 

128 FRINT"SEKUNDAERADRESSE: ";5N 
127 FRINT"EDOWNIJAUFRUF MIT SYS"AN"LLEFT 
. 1,8RADR,MAS" 
. 1320 PRINT"LDOWNIGRADR : 
: ILDSCHIRMADRESSE" 
. 121 FRINT"MASLRIGHT3S2: DEZIMAL MASSSTAB 
; [DOWNI" i 


DEZIMAL GRAFIKER 


132 INFUT"CODDE ABSPEICHERNLRIGHTAIYLLEF | 


Listing der Hardcopy-Routine für Epson-Drucker 
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TZ1"3 JE: IF JFZ>"Y"THEN 144 

132 INFUT"ERVSONIDERVOFFIISE ODER IRVSO 
NITERVOFFIAFELRIGSHTEIDLLEFT3I"S J# 

| :IF J#<L>"D"AND JFZ>"T"THEN 1535 


176 DATA 20,D2,FF,CA,10,F7,30,09 
177 DATA BD,*1,08,20,D2,FF,CA,10 
178 DATA F7,A2,00,84,FF,20,*0,F8 
177 DATA A6,FF,AS,FB,18,69,08,85 
180 DATA FB,A5,FC,69,00,85,FC,E8 
181 DATA EO0,28,D0,E7,20,CC,FF,A2 
182 DATA 7F,20,09,FF,A9,0A,20,D2 
183 DATA FF,AS,AA,C9,02,30,16,A6 
184 DATA A9,D0,12,E6,A9,38,A5,FB 
185 DATA EP,40,85,FB,AS,FC,E9,01 
186 DATA 85,FC,4C,*0,6R,A9,00,85 
187 DATA A9,AS,FC,C5,FE,D0,8B,A5 
188 DATA FB,C5,FD,DO0,85,A2,06,BD 
189 DATA *1,D4,20,D2,FF,CA,10,F7 
170 DATA 20,CC,FF,A9,7F,40,C05,FF 
191 DATA A5,01,48,78,49,34,85,01 
192 DATA A0,07,B1,FB,77,*2,18,A9 
193 DATA 00,99,*2,10,88,10,F3,68 
194 DATA 85,01,58,20,%#1,32,A0,07 
195 DATA A5,AA,C9,02,10,0A,B9,*2 
196 DATA 10,20,*1,B2,88,10,F7,60 


| 
| 
| 
| 
197 DATA B9,*2,10,20,*1,68,88,10 
| 
| 
| 
| 


134 IF J£="D"THEN D=8:60T0 136 

135 D=1 

15& PS=0:PRINT:FOR I=&88 TO 738 

157 GOSUB 147:POKE I,A:PS=PS+A: NEXT 

138 IF PS<>5381 THEN 118 

137 B=Atlı H=INTIB/ZSS) ı L=B-H#256 

140 B=AN+5328: HE=INT (B/256) : LE=B-HE*256 

141 POKE 707,L:FOKE 711,H:FOKE 717,LE:P 
|OKE 719,HE 

' 142 POKE &93,D:AN$=MID$ (STRF (AN) „2):FOR 
ı I=1 TO LENtANF) 

| :POKE 732+1,ASC (MIDE(AN?,I,1)) 











| 

| 
143 NEXT I:sFOEE 157,128:5Y5 &B8: PRINT 

‚ ı44 IF AN+343>40950 THEN FRINT"LDOWNIMA 

| SCHINENPROSRAMM WIRD NICHT GSESCHUETZT." | 

| 

| 

H 


145 B=AN:H=INT (B/Z5&): L=B-H#255 
144 FOKE 5&,H:FOKE S55,L:ELRIEND 
147 READ At: IF LEN{AFTZFZ THEN PRINT"TI 


| 
j 
| :END 
Ä 
Ä 
8 


198 DATA F7,60,A2,07,A0,07,89,%*2 
199 DATA 18,29,80,20,*1,58,18,7D 
200 DATA *7,10,9D,*2,10,88,10,EE 
201 DATA A0,07,89,#2,18,04,99,*2 
202 DATA 18,88,10,F6,C0A,10,DD,40 
203 DATA 85,02,99,00,00,F0,05,46 
204 DATA 02,83,10,F7,A8,A5,02,60 
205.DATA 85,58,98,48,45,49,F0,07 
206 DATA A0,04,064,48,88,DO,FB,AO 
207 DATA 00,84,47,45,48,29,90,20 
208 DATA #1,6,45,09,29,40,20,%#1 
209 DATA A5,45,48,29,20,44,20,%*1 
210 DATA 85,95,48,29,10,44,44,20 
211 DATA *1,45,498,20,%1,57,48,20 
212 DATA *1,B2,68,AB,60,4A,48,20 
213 DATA #1,AC,58,49,198,55,47,85 
214 DATA A7,60,48,45,AA,29,01,Fö 
215 DATA 04,68,40,D2,FF,48,49,FF 
216 DATA 40,D2,FF,01,40,00,28,1B 
217 DATA 02,80,04,2A,1B,00,0D,44 
218 DATA 1B,17,33,1B,04,0A,04,0R 
219 DATA 0A,372,1B,0D,48,41,57,44 
220 DATA 43,4F,50,59,20,45,50,53 
221 DATA AF,4E,0D,0D0,28,43,29,20 
22? DATA 20,44,55,4E,49,20,31,39 
223 DATA 38,34,20,42,59,0D,46,57 
224 DATA 31,4E,48,20,40,4F „48,43 
225 DaTe 54,45,57,57,4B,49,0D,00 
226 DATA A9,01,A0,01,42,08,20,BA 
227 DATA FF,AP,0F,A2,D3,A0,072,20 
228 DATA BD,FF,A9,00,85,FB,A97,00 
DATA 85,FC,99,FB,A2,00,A0,00 
DATA 40,D8,FF,48,43,20,45,50 
DATA 53,4F,4E,20,20,20,20,20 
DATA 20,20,20 


'FPFEHLER IN ZEILE"PEEE (ATI +PEEK (54) #256 
| : END 
. 148 Al=ASC (AF) AT=ASC (RIGHTF (AF,1)) 
| 149 IF Al=42 THEN Al=4B:RE=1 
ı 150 IF Al{48 OR A157 THEN IF AlX6S5 OR 
ı A1:70 THEN 157 
ı 151 IF Am{4B OR A2>57 THEN IF ATi65 OR 
52:70 THEN 157 
4152 IF Al>64 THEN Al=sAl-535: 5070 154 
15= IF Al<SB THEN Al=Ai-49 
154 IF A2:>&4 THEN A=A7-55:50T0 15% 
Ss IF ATXSB THEN AZ=AT-48 
15& A=Al#1&+A2: RETURN . 
157 FRINT"UNSLELTIGER HEXCODE IN ZEILE" 
FEEK {SEI H+FEEK (64) #256: END 
158 E=AN+ATsTSG:GOSUB 147: I=sI+l:B=B+n 
. 159 HB=INT (B/256) :B=B-HB#258:POKE I-1,B 
:POKE I,HB:RETURN 
i 150 DATA 20,FD,AE,270,8A,AD,20,95 
161 DATA BC,95,65,F0,03,40,E3,A8 
152 DATA 95,64,494,29,10,DÜ,F&,BE 
153 DATA *0,58,70,FD,AE,70,7E,B7 
164 DATA E0,04,30,03,40,AE,B3,8& 
155 DATA 5A,8A,79,80,70,F6,A9,DE 
164 DATA AD,01,70,1E,AB,A?,00,85 
167 DATA B7,85,69,99,7F,A2,04,A0 
153 DATA 043,20,BA,FF,20,C0,FF,82 
157 DATA 7F,20,09,FF,A2,04,ED,*#1 
170 DATA CD,20,D2,FF,CA,10,F7,49 
171 DATA 00,85,FC,47,00,85,FB,18 
172 DATA 67,40,85,FD,A5,FC,59,1F 
173 DATA 85,FE,A5,9A,09,02,10,05 
174 DATA A9,07,20,D2,FF,A2,04,45 
175 DATA AA,CH,02,10,0B,BD,*#1,C3 











Listing der Hardcopy-Routine für Epson-Drucker (Schluß) 
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»Escape« für den VC 20 ohne Erweite- 
rung ist ein Spiel in Maschinenspra- 
che zum Trainieren des Reaktionsver- 
mögens des Spielers. 


Sie müssen versuchen, Ihr Raumschiff möglichst lange vor 
einer Kollision mit fremden Raumschiffen, Planetoiden und an- 
deren kosmischen Erscheinungen zu retten. Gespielt wird 
mit einem Joystick. Für den VC 20-Besitzer ohne Joystick 
kann das Maschinenprogramm leicht durch eine geringfügige 
Änderung des Programms umgeschrieben werden. Das Ein- 
tippen und Abspeichern aller sieben Teilprogramme muß exakt 
in der Reihenfolge Listing 1 bis 7 erfolgen. Nachdem alle Teil- 
programme abgespeichert worden sind, geht man wie folgt 
vor: 

1. Alle Programme bis auf das letzte einladen und starten 
2. Falls über Tastatur gespielt werden soll, müssen nun folgen- 
de Adressen geändert werden: 

POKE 6404,197 

POKE 6405,0 

POKE 6407,18 

POKE 6421,197 

POKE 6422,0 

POKE 6424,17 

POKE 6437,9 

POKE 6450,26 

POKE 6463,64 

statt dem Joystick werden nun folgende Tasten abgefragt: A, 
WD,X. 

3. Letztes Programm einladen und starten. 

Für einen geübten Programmierer läßt sich dieses Pro- 
gramm leicht in nur zwei Teilen (Anleitung und Hauptpro- 
gramm) abspeichern (durch ändern der Vektoren 43/44, 45/46 
und SAVE”Escape"1,3). Die Programmversion mit den sechs 
einzeinen Teilprogrammen wurde deshalb gewählt, damit auch 
ungeübte Programmierer dieses Programm ohne Schwierig- 
keiten eingeben können. 

Da das Maschinenprogramm einen Basicschutz für 
»Escape-6« enthält, muß dieses »Escape-6« genau eingege- 
ben werden (auch die REM-Zeilen!). 

Aber nun viel Spaß beim Spielen. Übrigens beträgt die bisher 
höchste erreichte Punktzahl 4410. Schaffen Sie mehr? 

(Michale Werner/ev) 


| 

IX: für FOR- NEXT-Schleifen 

| Zeitschleife, | 
ı AS: rotierender Text, Bewertung, Ja/Nein- | 
| Abfragen | 
 B$: rotierender Titel | 
| L: Länge von A$, Anzahl der verschiedenen | 
Zeichen 

ı A: Länge von B$, zufällige Position | 
' D&: obere Begrenzung des rotierenden Titels | 
: E$: untere Begrenzung des rotierenden Titels : 
ı C$: für Anfangen (j/n) | 
| F: Zeitschleife, Anzahl, Hindernisse, Tonhöhe | 
‚ G: Position der vier Raumbasen 

ı M: jeweilige Zeichen 

| N: jeweilige Zeichenfarbe 

u F: Anzahl der zu setzenden Hindernisse mu 


Benutzte Basic- Variablen und Strings 








r 

| 36879 Bildschirmfarbe 238 und 25 und 8 (normal 
27) 

| 36881 Bildschirmverschieben 155-38 (normal 38) 

| 56: Basic-Speicher Ende verschieben 21 (nor- 

| mal 30) 

| 775: Listschutz 213 (normal 199) 

| 788: RUN/STOP-Taste ausschalten 194 (normal 

| 191) 

| 37150 RESTORE-Taste ausschalten 2 (normal 

| 130) 





Liste der verwendeten POKE-Sefehle 


1 
| 5380-5470: Scrollen des Bildschirms nach oben 
5471-5561: Scrollen des Bildschirms nach unten 
| 5562-5658: Scrollen des Bildschirms nach rechts | 
ı 5659-5755: Scrollen des Bildschirms nach links | 
| 5756-6066: Bewegung der Raumschiffe 
| 6067-6097: Punktewertung 
| 6098-6161: Setzen neuer Raumschiffe 
6162-6192: Basicprogrammschutz 
| 6193-6272: Explosion und Herabziehen des Bild- 
schirms 
ı 6273-6300: Bewegung der Hindernisse 
| 6301-6519: Abfrage d. Joysticks u. Steuerung d. 
i Unterprogramme 
| 6520-6546: Rotieren des Triebwerkringes 
| 


i 
{ 


| Speicherplatz des Basicprogramms: 
: 4097-7307: Basicprogramm zur Punktwertung und 
Setzen des Bildschirminhaltes zum Spiel 


Speicherplatz der benötigten Sonderzeichen: 
7176-7307: definierte Zeichen für Spiel: 


Benutzte indirekte Adressenspeicher für Maschinen- 
; sprache: 


| 0-3 97.100 


| Speicher für Maschinensprache-»Variablen«: 


i 


| 826-847: Zwischenspeicher für Zeichen beim 

| Bildschirmscrollen 

| 848-869: Farbzwischenspeicher für Farbe der 

| Zeichen beim Bildschirmscrollen 

ı 870: augenblickliches Zeichen zur Bewegung 
! der Raumschiffe 

| 871: neue Flugrichtung der Raumschiffe | 
| (1-8) 

ı 872: verloren? wenn Inhalt von 872 = 1, | 
; dann Rücksprung ins Basic | 
: 873,874,875: Punktezähler 

ı 876,877: Taktzahl für das Setzen neuer Raum- | 
| schiffe 

: 878: Tfiebwerkring rotieren " * 


Speicherbelegung | von »Escape« 
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10 FRINT "UBER EREERTE R 
i1l GETAF: IFAr="J" THENA= 1: 50T020 
12 IFA="N"THEN2O 
'13 G0T011 
20 FRINT"IRRRRRRREICOPYRIGHT BYEIIRENENRRI 
MICHAEL WERNERKEIIENERERNNN 9783" 
2ı FORX=1T03000: NEXT 
24 IFA=OTHENSS 
25 PRINT"LEBRSIE HABEN SICH DURCH KEBEIN 
EN FEHLER IHRES " 
26 PRINT" SREHYPERRAUMTRIEBWERKESENERPIIT 
IHREM RAUMSCHIFF" 
28 PRINT"EBBIIN EINEM VERKEHRS-ERRRERE ICH 
EN SEKTOR DERERBRRRGALAXIS VERIRRT." 
30 PRINT"WDIESER SEKTOR WIRD VONKRBREINE 
R UNTERENT-EREREBBRWICKELTEN RASSE" 
51 PRINT"ERERRPRRERRPRLTBSPACER" :WAITI? 
7,32 
33 PRINT"LERBEBEVOELKERT." 
34 PRINT"BBDEREN RAUMSCHIFFEERBRBRBMERDEN 
MIT VERALTETENKERBEIATOMTRIEBWERKEN" 
35 PRINT"BEBETRIEBEN. ALSO HUETENGEBISIE 
SICH DAVOR MITEBRBDIESEN FREMDEN RAUM-" 
36 PRINT"BBBECHIFFEN ZUSAMMENZU-EEBETOSSE 
N! *® 
37 PRINT" ERRRRRRRREbRbRRENSSHIFTEE" : WAIT& 
54,1 
40 PRINT"LIBBBSIE STEUERN IHRÜRBRRIBRRRA 
UMSCHIFF MIT KBBRbbbhBREATOY-STICKE. " 
41 PRINT'EIBDVERSUCHEN SIE MOEG-ERRRBIL ICHS 
T LANGE DURCH BBIGEKONNTE MANDEVER DEN" 
42 FRINT"BBFREMDEN RAUMSCHIFFEN BRAUSZUW 
EICHEN. PASSENIEBBSIE HIERBEI AUCH AUF" 
43 FRINT"BERRRERERRPRIEERETURNEE" : WAIT197 
„15 
45 PRINT"KEBDIE SICH STAENDIGERRBRNERAEN 
DERNDEN HINDER-EEBNISSE (MANCHMAL FAST" 
46 PRINT"EBUNSICHTBAR) AUF. ERBbBRBRAUSSER 
DEM KOENNEN SIEBBBENNICHTE UEBER DEN" 
47 PRINT"EBWELTRAUMMUELL „UEBEREBBIDIE PLA 
NETEN UND UEBERBIDIE BASEN DER FREMDEN" 
48 PRINT"WRASSE HINWEGFLIEGEN!" 
49 PRINT"ERERBRBRRRRRESPALERE" : WAIT197,3 
2 . 
50 PRINT"LRBALSO ,SCAPTAINE, VER-ERBRESSUCH 
EN SIE IHR GLUECK'IBIPABER ACHTUNG: EB" 
51 PRINT"BSOLANGE SIE SICH BNICHTEN BEWE 
GEN „BEKOMMEN SIERREBRÄUCH BKEINEB PUNKTE! 


55 PRINT"ERBRBENUN BITTE DIE SIkkbibFÜLG 
ENDEN & KURZ-" 

36 PRINT" @BPROGRAMME EINLADEN ERBBBEIND A 
UCH BSTARTENE! ! DI": NEW 

READY. 





Listing 1. Anleitung zu »Escape« 





SEARCHING FOR &£ 


o PRINT" 

1 CLR:POKES6,21: FORX=OTOS11:POKE7168+X,P 
EEK (32768+X) =: NEXT: FORX=OTO131:READA 

2 POKE7176+X ,A: NEXT 

3 DATAO,48,121,251,174,251,121,48,240,18 
4,248, 232,120,4,3,2,56,108,254,238,124,1 
6,56, 108 

4 DATA15,29,31,23 
3,117,223,158,12 
„15 


‚30,32,192,64,12,158,22 
‚o, 64,192,32,30,23,31,29 


5 DATAS4,28,8,62,119,127,54,28,2,3,4,120 





Ausgabe 8/August 1984 


'55,30,189,21,151,157,2 


‚„232,248,184,240,60,126,255,153,255,126, 
189,129 

& DATA136,73,43,31,255,19,246,124,17,146 
31,21,250,31, 


‚„212,248,255,200,111,62,58, 

43,73 

7 DATA136,92,248,168,95,248,212,146,17,1 

6,20,88,63,252,26,40,8,0,78,124,48,26,30 
„12,0 

8 DATA44,2,40,128,66,16,5,144,153,51,102 
„204 

7? FORX=53B0T05541:READA: POKEX ,ArNEXT 

10 DATA162,0,189,0,30,157,58,3,189,0,150 
„157,80,3,232,224,22,208,239,160,24,169, 
32,145 

11 DATAO,162,0,189,22,30,157,0,30,189,22 
‚150,157,0,150,232,224, 255 ,208,239,169,9 
„145,0 

12 DATA149,0,145,2,162,0,189,21,31,157,2 

55,150,232,224,251 
„208,239 

13 DATA162,0,189,58,3,157,228,31,189,80, 

3,157,228,151,232, 234. 22,208,239,96 

14 DATA162,0, „189,228,: 31,157,58,3,189,228 
„151,157,80,3,232,224, 22,208,239,160,24, 
169,32 

15 DATA145,0,162,255,189,228,30,157,250, 

30,189,228,150,157,250,150,202,224,0,208 
„239 

16 DATA169,7,145,0,169,0,145,2,162,229,1 

89,255,29,157,21,30,189,255,149,157,21,1 

50,202 

17 DATA224,0,208,239,162,0,189,58,3,157, 

0,30,189,80,3,157,0,150,232,224,22,208,2 

37,96 





Listing 2. Grafik und Maschinensprache für »Escape« 





O0 PRINT"KIE KISTTER ITTE WARTEN!" 
1 POKES6,21: FORX=5562T05870: READA: FOKEX, 
A:NEXT 

2 DATA169,0,133,97,133,99,169,30,133,98, 
167,150,133,100,162,0,160,24,169,32,145, 
0,160,21 

3 DATA177,97,141,58,3,177,99,141,80,3,13 
6,177,97,200,145,97,136,177,99,200,145,9 
9,136 

4 DATA192,0,208,239,173,58,3,145,97,173, 
80,3,145,99,160,24,169,9,145,0,169,0,145 
„2,168 

5 DATA97,24,105,22,144,4,250,98,250,100, 

133,97,165,99,24,105,22, 133,99 ,232, 224,2 
3,208 

& DATA170,96,169,0,133,97,133,99,1697,30, 
133,98,169,150,133,100,162,0,160,24,169, 
32,145 

7 DATAO,160,0,177,97,141,58,3,177,99,141 
‚80,3,200,177,97, 136, 145.97,200,177,99,1 
36,145 

8 DATA99 ,200,192,21,208,239,173,58,3,145 
‚77,173,80,3,145,99,160,24,169,9,145,0,1 
69,0,145 

9 DATA2,165,97,24,105,22,144,4,230,98,23 
0,100,133,97,165,99,24,105,22,133,99,232 





. 224,23 


10 DATAZO8B,176,96,169,255,133,77,133,97, 
1689,29,133,78,1697,149,135,100, 162, O, 160, 
1, 177 

11 DATAI7,201,5,16, 4, 105,4,145,97,200,253 


2,224,23,208B, 240, 180,24, 177, 97,201s1, 208 


aöar 87 


in 


„7,141 
12 DATA102,3,160,23,208,31,201,2,208,7,1 
41,102,3,160,1,208,20,201,3,208,7,141,10 
2,3,160 

13 DATA2,208,7,201,4,208,8,141,102,3,160 
„3,32,103,23,165,97,24,105,1,144,4,230,9 
8,230 

14 DATA100,133,97,165,99,24,105,1,133,99 
‚165,97,201,226,208,181,165,98,201,31,20 
8,175 

READY. 


Listing 3. Maschinenspracheroutinen für »Escape« 





© PRINT'LEEBREIBPPFTIRBBBITTE WARTEN!!!" 
1 POKES6,21: FORX=5871T06161:READA: POKEX,, 
A: NEXT 
2 DATA169,202,133,97,133,99,169,31,133,9 
8,169,151,133,100,162,0,160,23,177,97,20 
1,9,16,8 

3 DATA201,5,48,4,233,4,145,97,200,232,22 
4,23,208,236,160,24,177,97,201,5,208,7,1 
41,102,3 

4 DATA140,25,208, 
3,160,47,208,20,201,7,208,7,141,102,3 
0,46,208 

5 DATA9,201,8,208,8,141,102,3,160,45,32, 
103,23, 165,97,56,233,1,176,4,198,98,198, 
100,133 

& DATA97,165,99,56,233,1,133,99,165,97,2 
01,221,208,181,165,98,201,29,208,175,96, 
174,103 

7 DATAS,274,8,240,5,238,103,3,208,5,162, 
1,142,103,3,177,97,201,32,208,16,173,102 
„3,145 

8 DATA97,169,2,145,99,160,24,169,532,145, 
97,96,201,9,208,8,169,1,141,104,3,24,144 
„243,201 

9 DATA14,240,13,201,15,240,9,201,16,240, 
5,201,7,48,1,96,1&0,24,173,103,3,145,97, 
9& 

10 DATA173,105,3,24,105,3,144,3,238,10&, 
3,141,105,3,173,106,3,201,255,240,1,96,1 
67,0,141 

11 DATA106,3,258,107,3,96,169,100,133,97 
„133,99,169,30,133,98,169,150,133,100,17 
3,108,3 

12 DATA24,105,1,144,3,258,109,3,141,108, 
3,173,108,3,201,50,240,1,96,172,56,145,1 
77,97 

13 DATA201,32,240,1,96,173,103,3,145,97, 
169,2,145, Be 169,0,141,108,3,141,109,3,9 
& 

READY. 


31,201,6,208,7,141,102, 
1& 
+ 





Listing 4. Maschinenspracheroutinen für »Escape« 











© PRINT" RKRINSKIETTSEN ITTE WARTEN!" 
lı POKES6,21: FORX=6162T06371:READA: POKEX, 
AzNEXT 

2 DATAL73,100,20,201,0,240,3,76,34,253,1 
73,101,20,201,0,240,3,24,144,243,173,102 
‚20,201 

3 DATAO,240,3,24,144,233,96,162,0,160,0, 
173,36,145,141,15,144,173,36,145,141,12, 
144,201 

4 DATA128,48,246,200,192,255,208,235,232 
„224,150,208,228,162,191,142,20,5,169,23 
8,141 









88 Ziar 





5 DATA15,144,169,0,133,161,165,161,201,1 
‚208,250,169,38,141,17,144,24,105,1,201, 
180,208 

& DATA1,96,162,0,160,0,200,192,255,208,2 
51,232,224,10,208,244,24,144,228 

7 DATA234,234,234,110, 128,28.46,129,28,1 
10,130,28,46,131, >8, 110, 132,28,46, 133,28 
‚110,134 

EB DATA28,46,135,28,96,169,0,141,104,3,14 
1,105,3,141,106,3,141,107,3,141, 108,3,14 
1,109,3 

? DATA169,2538,141,15,144,169,15,141,14,1 
44,169,194,141,20,3,169,2,141,30,145,169 
„21 

10 DATA133,56,169,1,141,110,53,169,1,141, 
103,3,169,229,133,0, 133,2,169,30,133,1,1 
59 





‚32, 18,24 


11 DATA1S0,153,53 
READY. 





Listing 5. Maschinenspracheroutinen für »Escape« 





O PRINT"LEREREREEEEIERERIBITTE WARTEN!" 

1 POKES6,21: FORX=43721T06546: READA: POKEX, 

A:NEXT:POKE775,213 

2 DATA32,179,23,32,124,22,3 

29,24,32,120,25,173,104,3,2 
„49,24 

3 DATA96,169,127,141,34,145,173,32,145,2 

01,119,208,5,160,25,76 „66,25,169,255,141 

„34,145 

4 DATA173,31,145,201,110,208,5,160,23,76 

„&6,25,201,46,240,247,201, 122,208,5,160, 

2,76 

5 DATA66 ,25,201,58,240,247,201,118,208,5 

‚„160,46,76,66,25,201,54,240,247,201,24,2 

40,165 

& DATA177,0,201,32,240,7,201,9,176,155,7 

6,250,24,169,255,141,12,144,192,23,208,3 

‚32,186 

7 DATA21,192,2,208,3,32,95,21,192,46,208 

„3,32,4,21,192,25,208, 3,32, 27,22,169,0,1 

41,12 

8 DATA144,76,228,24,174,110,3,224,4,240, 
5,238,110,3,208,5,162,1,142, 110,5,174,11 

0,3,189 

3 DATA135,28,141,75,28,96 

READY. 


2,210 
Qi,1, 





Listing 6. Maschinenspracheroutinen für »Escape« 





© PRINT"W’:FOKE36979 ,BeA#=" VON MICHAEL 


WERNER ":L=20: B$=" 
18: F=50 

1 FOKES&,21:RESTORE:Df=" 

Li ” Er= a ee ——— m gg 
2 A$=RIGHT$ (A$,1)+LEFT$(A$,L-1):B$=RIGHT 
£(B$,A-1)+LEFT$(BE,1) 

3 FRINT"BE";AF;LEFTSCAF,2) PRINT" EREEIN" ;D 
$;B$; LEFT$ (BA) E$ 

4 PRINT"RERIKEERBRANFANGEN (J} ?":GETC$: IFC 
$="]"THEN? 

5 PRINT" SPERREN"; AF;LEFTF(AS,Z 
OF:NEXT:F=F-1:60102 

7 PRINT"L":POKES6869 ‚255: POKES64878,15:PO 
KE36879 „238: POKE7933, 9: POKESB6SS „0 

8 READG: IFS>OTHENPOKESO0720+6 ,0: POKESO721 
+6 ,0: POKES0742+6G , 0: POKES0743+6,, 0 

9 IFG>OTHENPOKEG, 10: POKEG+1,11:POKEG+22, 


* ESCAPE # "fs 



















3: FORX=1T 
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12: FOKEG+23,13: 60708 

16 F=0:1L=0:M=14:N=7: DATA7721,79815,7962,8 
054,0,16,1,15,4 

11 A=INT(RND(1)%#508) +7680: IFFPEEK (A)X >32T 
HEN11 

12 FOKEA,„M:POKEA+30720 ,N:F=F+1: IFF@ÄSTHEN 
11 

13 L=L+1: IFL{STHENREADM: READN: F=0:G0T011 
14 SYS4301:POEE788, 194: FOKE 36869, 240 

15 F=FEEK (87) +256#PEEK (874) +40958*PEEK (8 
75): IFF>2ZOOTHENAF="SOGAR":GOTO2O 

i& IFF>LEOOTHENAF="UNERWARTET":GOTOZO 

17 IFFFLOOOTHENAF="MUEHEVOLL" :SOTO2O 

18 IFFXSOGTHENAF="NUR”: GOTOZO 

17 Af="GERADE" 

20 FOKE364879,25:PRINT’LERERESTIE KONNTEN 

"AH 

21 PRINT"BEIKM" ; F: "IERSBRTPUNKTE ERREICH 
EN!“ . 

?2 FRINT"RERHTRAUEN SIE SICH NOCH "kai 
I’ 

>23 F=128:FORG=155T0385STEF-1i: F=Ff+1: POKE3SS 
876, F:POKE348B1,G:NEXT 

24 FOKE34875,0:GETA#: IFAF="J"THENRUN 

25 IFA$="N" THENPOKE78B,34 

2& GDOTO24 

27 REM M. WERNER 

28 REM FARADEIS 38 

27 REM 8120 WEILHEIM 

READY. 





Listing 7. »Escape« — Das Hauptprogramm 


Programm »Escape« 
Sprung in Maschinensprache 


PORE 70854 

















MASCHINENSPRACHE 
Maschinen-Variablen alle neu setzen 


. Basicprogrammschutz 
Solange nicht verloren 


Tastaturabfrage 
Ja Taste gedrückt? 
Punkte zählen 


VERLOREN 


Rückkehr ins Basic 


Die Programmstruktur von »Escape« 





















Bildschirm scrollen 
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Pac-Boy — die 
Herausforde- 
rung 





Die Herausforderung, die dieses Pro- 
gramm an Sie stellt, ist zweifach. Zum 
ersten sind dies die 128 verschiede- 
nen Schnelligkeitsgrade. Andererseits 
müssen Sie, um das Programm einzu- 
geben, 5939 — in Worten: fünftau- 
sendneunhundertneununddreißig — 
DATAs eintippen. 





Das Programm lehnt sich stark an die herkömmlichen »Pac- 
man«-Spiele an und istmitfolgenden Einzelheiten ausgestattet 
(Bilder dazu auf Seite 68): 

— Es werden alle acht Sprites, teilweise in Multicolor, verwen- 
det, 

— Es wird ein vollständiger neuer Zeichensatz definiert, 

— Das Programm läuft mit Ausnahme der Einleitung und des 
Endesin reiner Maschinensprache, und ist daher sehr schnell, 
— High-Scorewertung, 

— Einsatz des Soundchips. 

Pogrammbeschreibung: 

Nach bekanntem Schema muß der Spieler bei diesem Spiel 
versuchen, seinen »Pac-Boy« möglichst lange durch ein Laby- 
rinth zu bewegen, ohne dabei von den umherlaufenden Gei- 
stern erwischt zu werden. Frißtman die Pillen, so erhält man je- 
weils fünf Punkte. Indem man aber eines der vier Nahrungs- 
stücke frißt, kann man kurzzeitig den Spieß umdrehen und die 
nun flüchteten Geister jagen. Man erhält hier pro erlegtem 
Geist einen Bonus von 200 Punkten. 

Der Zustand der Geister zeigt sich immer in deren Farbe. 
Zur Bedienung des Programmes: 

Zuerst sieht man eine kurze Einleitung, in der alle Mitwirken- 
den vorgestellt werden. Darauf folgen die Wahl der Schwierig- 
keitsgrade und das eigentliche Spiel. Gelenkt wird der Vielfraß 
übrigens mit den Tasten f 5, f 7, zund x für oben, unten links 
und rechts. 

Zum Eingeben des Programmes: 

Zuerst müssen die beiden Listings »Pac-Boy« und »Data- 
Pac« eingegeben und dann abgespeichert werden. 

Jetzt startet man »Data-Pac« und kann sich aussuchen, ob 
man die DATA-Zeilen testen oder im Programm fortschreiten 
will. 

Wenn keine Fehler aufgetreten sind, wird dann ein neues, 
reines Datenprogramm generiert, das dann später sehr schnell 
vom Hauptprogramm nachgeladen werden kann. 

Gestartet wird das Programm duch das Einladen von »Pac- 
Boy« und nachfolgendem RUN. Zuletzt ist noch zu bemerken, 
daß die Floppy-Station nach Abänderung der entsprechenden 
Zeile durch die Datasette ersetzt werden kann. 

(H. Schlangmann/rg) 
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Für den Interessierten eine Auflistung der Maschinen 
Unterprogramme und ein Flußdiagramm: 


$ 3000 — 37FF Zeichen-DATAs 

$3800 — 3BE7 Labyrinth 

$3BES — 3C17 VIC-Daten 

$3C18  — 3C1F Spriteblöcke 

$3C20 — 3CBF Zwischenspeicher 

$3CC0O .— 3FFF Spritedaten (Block O - 12) 

$4000 — 4143 Tastaturabfrage + Bewegung 

$4144  — 4176 Set up VIC, Set up SID 

$ 417A — 41D9 Bildschirmaufbau 1. Teil 

$ 41DA — 4330 Kollisionstests, Sound, Score 

$433C  — 437E Bildschirmaufbau 2. Teil 

$437F — 44FD verschiedene Geisterbewegungsun- 
terprogramme 

$4500 — 4574 Hauptschleife (siehe Flußdiagramm) 
+ High-Score 

$458C — 4731 Geistbewegung 





Listing »PAC-BOY« 


10 GOTDOFH:HKERHERFHHHERRNRHÄNKHRNNRERHE 


12 #* %* 
14 * FAC-BOY, EIN ARCADE-GAME * 
16 %* * 
i8 # GESCHRIEBEN VON: * 
20 * - * 
22 # HARALD SCHLANGMANN * 
24 * * 
2& # MOOSRAIN 54 + 
28 * * 
30 # 8110 MURNAU * 
32 * * 


ZI REREKKÄRHHHRNTTTHRTK HIT THHK HF HH HN NN IT FH HH NH 
ic " 
ss: 
40 IFSW=OGTHENSW=1:LOAD"MA-PAC" „8,1 
42 5Y5165708: FOKES3248+21 ,0:RESTORE 
44 DATA180,131,180,155,214,155,248,155 
46 DATA180,179,214,179,248,177,26,179 
47 DATA12B 
59 FORT=O0TD16: READA: POFKESFZAB+HT „A:NEXT 
52 GOSUB1005 . 
53 FORESF248+21,255:POKE178,0 
54 GETAF: IFAt=""THENS4 
54 FOHESTZ48+21,0:FRINTYIR tr 
*# FAC-TBOY sea 
58 FRINT 
&0 FRINT" 4E 

u”; 
&2 PRINT" ZUERST KANNST DU ABER NDCH DI 
E m; 
64 FRINT"S SCHWIERIGEEITSSTUFE Aus DEM B 
EREICH ="; 
65 FRINT"S A0..1270 WAEHLEN, WOBEI O AM 
SCHNELL- EM"; 
&8 FRINT"IZ STEN IST... 

Bw"; 
70 PRINT" Un 

= " 3 
72 FRINT 
74 FRINT 
7& FRINT 
78 INPUT "WIDEINE EINGABE ";S5E 
80 IFSEZOORSEF127THENFRINT"OD 

7":G0T078 

81 FOGEKE17707,SE 
= PRINT 
84 FRINT 


on ek: 


‚Flußdiagramm der Hauptschleife (stark vereinfacht) 





B& FRINT 


76 PRINT"BHEMIT EINEM TASTENDRUCK GEHTS 


LOS... mm" 

92 GETAF: IFAS=""THENS2 

95 FORT=0TOS0O0: NEXT 

100 REM ####* HAUFTROUTINE ###%*%* 

110 SYS17664 

120 FORT=OT01000: NEXT: POKESS3248+21,0 
1530 GOSUB1100 

140 GETAF: IFAFL>" "THEN140 

150 G0T042 


1000 PRINT" derer PAC/AE"; 
1001 PRINT" BOY ##H- "; 
1002 PRINT" “; 
1003 PRINT" "; 
1004 PRINT"EI AS m"; 
1005 PRINT" ' oo mY 


100& PRINT"jQ VERSUCHE MIT DEINEME"; 
1007 PRINT" "PAC-BOY’ IN EINEM I"; 
1008 PRINT"|d LABYRINT MDESLICHSTM"; 
1009 PRINT" LANGE DEN UMHER- m"; 
1010 PRINT"I8 LAUFENDEN GEISTERN I"; 
1011 PRINT"WAUSZUWEICHEN UND m"; 
1012 PRINT" DABEI VIEL ZU FRESSE"; 
1013 PRINT"KEN... m"; 
1014 PRINT" 8 m"; 
1015 PRINT" mn; 
1016 PRINT" ", 
1017 PRINT" "; 
1018 PRINT"B4RDIE SPIELFIGUREN: 
1017 PRINT" "; 
1020 PRINT" "; 
1021 FRINT" ", 
1022 PRINT" DER HELD ; 
1023 PRINT" "; 
1024 PRINT" n, 
1025 PRINT" "; 

5 

; 

5 

5 

F 

5 

3 

5 

5 

5 


10264 PRINT" " 
1027 PRINT" " 
1028 PRINT" DIE DREI GEISTER : " 
1029 PRINT" " 
1030 PRINT" "; 
1031 PRINT" n 
1032 PRINT" "; 
1033 PRINT" n 
1054 PRINT" DIE NAHRUNG 
1055 PRINT" " 
1056 PRINT" u 
1037 PRINT" u 
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10358 FRINT" ". 
1037 FRINT" "2 
1040 FRINT" UND VIELE, VIELE PI"; 
1041 FRINT'"LLEN :g # 2 2 2885"; 


R 


1042 PRINT" “; 
1045 PRINT" "; 
1044 PRINT" “; 
1045 PRINT" “; 


1046 PRINT" —ges®= DRUECKE ZUM STE"; 
1047 FRINT"BART EINE TASTE ser "; 
1048 FRINT” "rn 
1077 RETURN \ . 

1100 FRINT'IE ar FACE", 
1101 FRINT'WEOY er z 
1102 FRINT” “ 

1103 FRINT" " 

1104 PRINT" " 
1105 PRINT" " 


Bi 
= 
! 
| 
Be u 


1106 FRINT'EB 8. nn u"; 
1107 FRINTT WB EER.TIOT a B"; 
1108 PRINT'I RI L- SELDBE DE D AD Bi 


1109 FRINT' BEIDE GE Deuumi- gm 
IL BE"; 


1110 RINGE Bergen mu: 
". 
1111 PRINT BE BEUE BEUe dm 
ig ma"; 
ıi11? FRINTB BE - 3 Rue -m ni M— 


® 

1113 FRINT EB GER 
m"; 

1114 PRINTGE WED EIGEGE gm ın 
1: "es 

1115 FRIN ge gel 
—# "a. 

1116 FRINTTB Eee Duaugm Den 
Bi. "; 

1117 FRINT D age ge aD 
“, #3 

1118 FRINGS mW __ ._. -  E = 
1117 PRINT SE sg mw _ 
1120 PRINT" " 
1121 PRINT" " 
1122 PRINT" " 
1123 PRINT" ” 
1124 PRINT" " 
1125 PRINT" : 
1126 PRINT" 
1127 PRINT" 
1128 PRINT’B A 5 
1127 PRINT"Z m 
1130 PRINT" J DER GEIST WAR WOHLE" 
1151 PRINT" SCHNELLER... wi" 
1132 PRINT" & WENN DU DENN MUT NE" 
113Z PRINT"BOCH NICHT VERLOREN ®B " 
1134 FRINT" 3 HAST DANN DRUECKE m" 
11535 FRINT"BFUER EIN WEITERES 5" 
1138 FRINT" 3 SPIEL DIE "SPACE ’-m" 
1157 FRINT"WTASTE... = 
1158 FRINT" “8 
11397 PRINT" wi" 


F 

5 
u 
Ei 
’ 
E 


1a 


Bau iD: 


t 


[CL WFT BErT Bere BET ET Er BETT 


ie 
. 


{U TETT ET BETT EFT ENT Er Ber T 7 


m 


an 


KT 


1140 FRINT" 
1141 PRINT” 
1142 FRINT” 
1143 FRINT” : 
1144 FRINT"E -WICH WARTE AUF EINER": 
1145 FRINT"A EINGABE... © ”; 
1150 RETURN 

1151 DATA47 

READY. 
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Listing »DATA-PAC« 


0 DATA&0,102,110,110,96,98,60,0,60,34,34 
‚62,98,78,98,0,120,100,100,124 

i DATAIB,98,126,0,62,70,64,64,64,66,62,0 
‚124,102,98,98,98,98,126,0,126 

2 DATAs4,96,120,96,96,126,0,126,96,96,56 
32,32,32,0,126,102,9&,108,110 
DATA9S,176,0,68,68,68,126,107,102,102, 
0,8,8,24,24,24,24,24,0,4,4,4,6 

4 DATA102,1072,724,0,68,72,112,112,120,108 
‚102,0,64,64,96,96,96,102,126,0 

5 DATA107,90,66,66,98,114,114,0,100,84,7 
6,68,102,102,102,0,60,1072,66,70 

6 DATA70,110,60,0,124,70,65,124,98,76,95 
‚9,60,102,66,90,74,110,60,0,120 

7 DATA7&,68,124,104,102,98,0,60,70,64,60 
‚„6,70,60,0,124,20,168,24,24,24,24 

E DATAO,66,66,66,70,70,70,62,0,70,70,78, 
78,76,40,16,0,102,102,98,98;970 

3 DATA1?6,36,0,56,68,40,16,40,768,78,0,70 
‚„70,70,36,24,24,24,0,126,78,4,8 

10 DATA16,54,176,0,60,48,48,48,48,48,60, 
0,12,18,48,124,48,98,252,0,60,12 

11 DATA12,12,12,12,60,0,16,56,124,16,24, 
24,24,0,0,32,111,255,96,32,0,0,0 

12 DATAO,0,0,0,0,0,0,56,56,24,24,0,24,2 
„0,102,102,34,0,0,0,0,0,36,36,12& 

13 DATAZ6,126,76,36,0,24,62,96,60,6,124, 
24,0,99,102,12,24,48,115,115,0,60 

14 DATA66,36,56,103,98,63,0,4,8,24,0,0,0 
„0,0,4,8,16,16,24,12,4,0,16,8,4 

15 DATA4,172,24,16,0,0,66,52,255,52,66,0, 
0,0,16,16,126,24,24,0,0,0,0,0,0 

16 DATAO,24,24,48,0,0,0,1268,14,0,0,0,0,0 
„9,0,0,24,24,0,0,2,4,8,74,48,96 

17 DATAO,60,70,74,82,114,114,60,0,8,74,4 
0,8,24,24,126,0,60,98,2,12,48,112 

18 DATA126,0,60,98,72,28,6,102,50,0,5,10, 
18,34,127,6,6,0,126,64,124,2,6,102 

17 DATA60,0,60,70,64,124,102,102,60,0,12 
6,98,4,8,24,24,24,0,60,65,66,60 

20 DATAFB,102,60,0,60,66,66,62,5,102,80, 
0,0,0,24,0,0,24,0,0,0,0,24,0,0,24 

21 DATA24,48,8,16,32,76,48,24,8,.0,.0,0,12 
6,0,126,0,0,0,16,8,4,6,12,24,1& 

22 DATAO,60,98,2,12,24,0,24,0,0,0,0,255, 
255,0,0,0,0,0,0,0,1,7,31,255,0,0 

23 DATAO,0,178,224,248,255,31,127,255,25 
5,255,255,127,31,248,254,255,255 

24 DATA255,755,254,248,50,126,176,255,25 
5,255,255,255,255,255,255,255,255 

25 DATA126,126,60,224,192,128,0,0,0,0,0, 
0,0,0,0,0,128,192,224,240,252,254 

26 DATA234,255,253,255,255,255,255,255,2 
55,127,127,63,15,255,2755,255,255 

27 DATA254,254,252,240,7,3,1,0,0,0,0,0,0 
‚0,0,0,0,1,3,7,0,0,0,7,7,0,0,0,0 

28 DATAO,0,224,224,0,0,0,255,255,3,3,3,3 
‚3,35,0,60,126,126,126,126,60,0,0 

27 DATAO,0,0,0,255,255,0,54,127,127,127, 
62,28,8,0,76,96,96,76,96,76, 96,76 

30 DATA15,63,127,127,255,255,255,255,195 


? 
= 
. 


"‚231,126,60,60,126,231,195,0,60 


31 DATAI26,102,102,126,60,0,24,24,102,10 
2,24,24,60,0,6,6,6,6,6,6,6,6,8,28 

32 DATA62,127,62,28,8,0,24,24,24,255,255 
„24,24 ,24,192,192,48,48,192,192 

33 DATA48,48,74,24,24,24,24,24,24,24,0,0 
‚3,62,118,54,54,0,255,127,63,31 

34 DATA15,7,3,1,0,0,0,0,0,0,0,0,240,240, 


rang 


DE 


Listing »DATA-PAC« (Fortsetzung) 


240 ,240,240,240,7249,240,0,0,0,0 

35 DATA255 ,255,255,255,255,0,0,0,0,0,0,0 
‚„0,0,0,0,0,0,0,255,192,192,192,192 

36 DATA192,192,192,192,204,204,51,51,204 
„204 ,51,51,3,3,3,3,3,33,33350,0,0 

37 DATAQ,204,204,51,51,255,254,252,248,2 
40,224.,192,128,3,3,333333333,3,24 

38 DATA?4,24,31,31,24,24,24,0,0,0,0,15,1 
5,15,15,24,24,24,31,31,0,0,0,0,0 

39? DATAO,248,248,24,24,24,0,0,0,0,0,0,25 
5,255,0,0,0,31,31,24,24,24,24,24 

40 DATA24,255,255,0,0,0,0,0,0,255,255,24 
„24,24,24,24,24,7248,248,24,24,24 

41 DATA192,192,192,192,192,192,192,192,2 
24,224,224,224,224,224,224,224,7 

42 DATA7 ,7,7,7,7,7,7,255,255,0,0,0,0,0,0 
‚255,255,255,0,0,0,0,0,0,0,0,0,0 

43 DATA?55,255,255,3,3,3,3,3,3,255,255,0 
„0,0,0,240,240,240,240,15,15,15 

44 DATA15,0,0,0,0,24,24,24,248,248,0,0,0 
„240,240 ,240,240,0,0,0,0,240,240 

45 DATA?40,240,15,15,15,15,195,153,145,1 
45,159,157,195,255,195,221,221,193 

46 DATA157,157,157,255,135,155,155,131,1 
57,157,129,255,193,185,191,191,191 

47 DATALB9,193,255,131,153,157,157,157,1 
57,129,255,129,191,159,135,159,159 

48 DATA129,255,129,159,159,199,223,223,2 
23,255,129,153,159,147,145,157,129 

43 DATA255,197,197,187,129,153,153,153,2 
55,247 ,247 ,231,231,2531,231,231,255 

SO DATA251,251,251,249,153,153,231,255,1 
87,183,143,143,135,147,1553,255, 191 

51 DATA191,159,159,159,153,129,255,155,1 
65,189,189,157,141,141,255,155,171 

52 DATA179,187,153,153,153,255,195,153,1 
89,185,185,145,195,255,131,185, 189 

53 DATA131,159,159,159,255,195,153,189,1 
65,161,145,195,255,135,179,187,151 

54 DATA151,153,157,255,195,185,191,195,2 
49,185,195,255,131,235,239,231,231 

55 DATA231,231,255,187,189,187,185,185,1 
85,173,255,185,185,177,177,179,215 

56 DATA2397,255,153,153,157,157,165,129,2 
19,255,187,187,215,239,215,179,177 

57 DATA255,185,185,185,219,231,231,231,2 
S5,129,157,251,247,239,201,1297,255 

58 DATA195, 207,207 ‚207,207 ,207,195,255,2 
43,237 ,207,131,207,157,3,255,195 

59 DATA243,243,243,243,243,195,2553,239,1 
99,131,239,231,231,231,255,255,223 

60 DATA144,0,159,223,255,255,255,255,255 
„255,255,255,255,255,199,199,251 

61 DATA?231,255,231,231,255,153,153,221,2 
55,255,255,255,255,219,219,129,219 

62 DATA1L29,219,219,255,231,193,159,195,2 
49,131,231,255,156,153,243,231,207 

63 DATA140,140,255,195,189,219,199,152,1 
57,192,255,251,247,231,255,255,255 

64 DATA?255,255,2751,247,239,239,231,243,2 
51,255,239,247,251,251,243,231,239 

65 DATA255,255,187,203,0,203,189,255,255 
„255,239,239,129,231,231,255,255 

66 DATA255,255,255,255,255,231,231,207,2 
55,755,255,129,241,255,255,255,255 
67 DATAZ55,255,255,255,231,231,255,255,2 
53,251,247,231,207,159,255,195,185 - 

68 DATAL81,173,141,141,195,255,247,231,2 
15,247,231,231,129,255,195,157,253 

69 DATA243,207,143,129,255,195,157,253,2 
27,249 ,155,195,255,249,245,237,221 


0 (ka 


70 DATA128,249,249,255,129,1791,131,253,2 
49,153,195,255,195,185,191,131,153 
71 DATA153,195,255,129,157,251,247,231,2 


'31,231,255,195,189,189,195,157,153 


72 DATA195,255,195,189,189,193,249,153,1 
95,255,255,255,231,255,255,231,255 

73 DATA255 ,255,255,231,255,255,231,231,2 
07,247 ,239,223,159,207,231,247,255 

74 DATA255,255,129,255,129,255,255,255,2 
39,247 ,251,249,243,231,239,255,195 

75 DATA157 ,253,243,231,255,231,255,255,2 
55,255,0,0,255,255,255,255,255,255 

7& DATA255,254,7248,224,0,255,255,255,255 
„127,321,7,0,224,128,0,0,0,0,128 

77 DATA224,7,1,0,0,0,0,1,7,195,129,129,0 
„0,0,0,0,0,0,0,0,0,129,129,195,31 

78 DATA&3,127,255,255,255,255,255,255,25 
5,255,2595,255,127,63,31,15,3,1,1 

77 DATAO,0,0,0,0,0,0,0,128,128,192,240,0 
„0,0,0,1,1,3,15,248, 252, 254,255 

80 DATA255,255,255,755,255,255,255,255,2 
55,254,2572,248,255,255,255,248,248 

81 DATA255,255,255,255,255,255,31,31,255 
„255,255,0,0,252,252,252,252,252 

B2 DATA252,255,195,129,129,129,129,195,2 
55,255,255,255,255,255,0,0,255,201 

83 DATA178,128,128,193,227,247,255,159,1 
59,159,159,159,159,159,159,240,192 

84 DATA128,128,0,0,0,0,60,24,129,195,195 
„129,24,60,255,195,129,153,153,129 

85 DATA195,255,231,231,153,153,231,251,1 
95,255,249,249,249,249,249,249,249 

86 DATA?49,247,227,193,128,193,227,247,2 
55,231,231,231,0,0,2531,231,231,63 

87 DATAAS, 207,207 ,63,63,207,207,231,231, 
231,231,231,231,231,231,255,255 

88 DATA232,193,137,201,201,255,0,128,192 
‚224 ,240,248,252,254,255,255,255 

89 DATA255,255,255,255,255,15,15,15,15,1 
5,15,15,15,255,255,255,255,0,0,0 

90 DATAO,0,7255,255,255,255,255,255,255,2 
55,255,255,255,255,255,255,0,63 

91 DATA63,63,63,63,63,63,63,51,51,204,20 
4,51,51,204,204,252,2572,252,252 

92 DATA?5?2,252,252,252,255,255,255,255,5 
1,51,204,204,0,1,3,7,15,31,63,127 

93 DATA252,252,252,252,252,252,252,252,2 
31,231,231,224,224,231,231,231,255 

94 DATA255,255,255,740,240,240,240,231,2 
31,231,224,224,255,255,255,255,255 

95 DATA255,7,7,231,231,231,255,255,255,2 
=55,255,255,0,0,255,2595,255,224,224 

96 DATA231,231,231,231,231,231,0,0,255,2 
55,255,255,255,255,0,0,231,231,231 

97 DATA231,231,231,7,7,231,231,231,63,63 
,63,63,63,63,63,63,31,31,31,31,31 

98 DATAZ1,31,31,248,248,248,248,248,248, 
248,248,0,0,255,255,255,255,255 

99 DATA255,0,0,0,255,255,255,255,755,255 
‚255,255,255,255,0,0,0,252,252,252 

100 DATA252,252,252,0,0,255,255,255,255, 
15,15,15,15,240,240,240,240 255,255 

101 DATA255,255,231,231,231,7,7,255,255, 
255,15,15,15,15,255, 255,255, 255,15 

102 DATA15,15,15,240,240,240,240,32,32,3 
2,32,32,32,32,32,32,32,65,85,170 

103 DATA170,170,160,144,129,131,206,207, 
150,143,153,160,170,170,170,73,66 

104 DATAZ2,32,32,32,32,32,32,32,32,32,85 


„160,160,160,160,160,160,160, 160 
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Listing »DATA-PAC« (Fortsetzung) 


105 DATA160,160,160,160,160,160,160,160, 
1680,160,160,160,160,160,150,160, 160 

106 DATA150,160,160,160,160,160,1540,160, 
160,160,160,160,160,73,160,71,32 


107 DATAS2,32,32,32.32,32,32,32,32,32,32 
‚32,32,32,32,76,160,160,71,32,32 
108 DATAFZ,FS Sy 32,32,32, 32,32,32,32,32,32 
‚32,32,32,76,160,160,32,81,32,32 
109 DATAB1,32,32.32,32,32,32,32,81,32,32 
‚32,81,37,160,160,32,81,32,32,32 
110 DATAB1,32,32,32,81,32,32,32,81,32,32 
‚81,32,160,160,32,32,32,32,32,32 
111 DATAS2,32,32,32,32,32,32,32,32,32,32 
‚32,160,160,32,32,32,32,32,32,32 
112 DATAZ2,32,32,32,32,32,32,32,32,32,32 


‚150,160,32,32,32,67,160,160,68, 32" 
i12 DATAS2,22,67,160,160,160,68,32,32,32 
‚74,75,32,32,32,67,160,160,160,68 
114 DATA32,32,32,67,160, 160,68,32,32,32, 
140,160,32,32.,32,32,32,32,32,32,32 
115 DATAT2,22,32,32,32,32,32,32,32,32, 
„32,32,32,32,32,32,3 
11& DATA32,32,32,32,32,32,32,160,160,32, 
81,32,32,81,32,32,32,81,32,32,32 
117 DATAB1,72,32,32,81,32,32,32,32,81,32 





(4 
PJ 








„32,32,81,32,32,32,32,32,32,32,81 

118 DATAZ2,32,81,372,160,160,72,32,32,32, 
32,32,32,32,32,32 
52,32,32,32,32,32,32,32,32 





1=0 DATA77,180,74,160,180,1680,150,180,1&6 


O, 72,32,32,372,69,32,32,32,67,160 
121 DATA160,160,160,160,160,160,160,68,3 


2,32,32,649,32,32,32,85,160, 160,160 

122 DATALA0,160,160 75.32,32,32,32,32,76 
. 160, 75,52,52,32,160,52,81, 32,52 _ 

123 DATA32,32,32,32,32,32,32,32,3 
‚32,160,32,32,32,74,160,71,32,32 

124 DATAS2.32.32.32,32,32,32,32,77, 160,3 

2,32,32,32,70,32,32,32,32,81,32,32 

125 DATAZ2,32,32,32,81,32,32,32,32,70,32 
32,32, 76, 140 „72,32,32,32,32,32,1&60 

126 DATA160,1&0,160.160,160,75,32,32,32, 


za zn 8m zn = =n 
Sue 32,32, 32, 32,5 32,32,32,32,32 


127 DATAZ2,32,32,32,32,32,32,32,32,3 
‚>32,74,160,160,160,1580,160,160,32 
128 DATAS2,32,32,32,37,32, 32,32,32, 3 
‚„32,32,32,85,160,68,32,32,32,32,67 
129 DATA1A0, 73,32,32,32,32,32,32,32,32,3 
2,52,52,52,52,32,32,32,32 ,32,32,32 

130 DATAS2,32,32,32,32,32,32,81,32,32,16 
0,71,32,32,32,32,32,32,76,160,32 

131 DATAZ2,81,32,32 "32.81 .32,32,32,32,3 


22,81 


BI 


{4 
PJ 


rJ 


\4 
rl 


4 


rJ 


„a2,az, 32,32,32, 32,32,32,32, 32,32 
132 DATAS2,77,69,32,32,32,77,160,32,32,3 
2,32,32,32,32,32,160,32,32,32,32 


135 DATA69,72,32,32,32,32,32,32,32,32,32 
„160,1680,160,160,160,68,32,32,32 
i34 DATABS,75,32,32,32,67,75,32,32,32,32 
‚32,32,52,52,74, 68 ‚32 ,32,32,74, 73 
135 DATAZ2,32,32,67,160,160,160,160,160, 
180,71,32 „32,32,32,32, 32,32,160,71 
136 DATA32,32,32,32,32,32,32,32,85,73,32 
„32,32,32,32,32,32,32,76,160,32,32 
137 DATAS2,32,32,32,32,76,160,160,32,81, 
32,32,32,32,81,32,160,32,81 „32,32 
138 DATA32,32,32,32,32,160,160,32,32,32 
33,32,32,32 „81,32, 160,52,81,32,32 
139 DATAS2,32,81,52,160, 150 „32,52,32,32, 


32, 32, 32,3 32, 180,3 32, 32,32, 32, 32,3 32 
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140 DATAZ2,32,77,160,160,72,32,32,32,32, 
32,32,32,32,160, 32,32,32,32,32,32 
141 DATAS2,32,160,160,32,32,32,67,68,32, 
32,32,70,32,32,32,67,160,160,160 
142 DATA150,140,160,160,160, 160, 10,160, 
1&0, 68, 32,32,32,70, 32,32,32,67, &8 
143 DATA32,32,32,160,160,32,32,32,32,32, 


+ 
za za 77 72 2.32.32 TI TE = = - 
SLgyazgyongod n . . . 


+ 
144 DATA3Z,S 
=73 nn <= 


z 
= 
> 
zZ 


Nu 


, 
== = 
ed Loge 


„ 
3 

145 DATA180,160,37,8 32; ‚32, 

32,32,81,32,32,.7,81,32 

14& DATAZ2,61.32,32,81 2,32 

32 ,32,32,32,32,32,81,2 

ı47 DATA72,32,32,32,32 32,32 


„32,32,32,32,32,32,32,2 

148 DATAZ2,32,32,32,32 „32 
„32,32,32,32,77,160,74, 160,136, 

149 DATAL35,136,173,147,131, 143,146,135, 
186,176,176,176,176,176, 160,160,160 

150 DATA147,131,143,146,133,186,176,176, 
176,176,176,160,160,160,179,160,147 

151 DATA1L44,75,88,68,152,188,197,188,168 
„164,16,212,72,220,0,100,88,148,80 

157 DATA27 ‚28,209 ,0,255,200,0,28, 113,240 
„0,240,0,0,0,6,6,6,8,6,2,7,8,3,10 

153 DATA4,5,5,10,8,0,249,251,251,251,252 
„253,254,255,39,74,160,156, 137,135 

154 DATA136,173,147,131,143,146,133,1B6, 
176,178,176,179,176,160,.160,160,147 

155 DATA131,143,146,133,186,176,179,180, 
182,176,160,1&0,160,177,160,149,144 

156 DATA75,81,0,1,2,40,41,42,80,81,87,0, 

0,0,0,0,0,240,240,240,740,15,15,15 

157 DATA15,195, 153,145, 145,159, 153,195,2 
55,231,195,153,129, 153,153,153,255 

158 DATA131,155,153,131,153,153,131,255, 
195,153,159,159, 159,153,195,255,135 

159 DATA147,155, 153.153,147,135,255,129, 
159,159,135,159,159,129,255,129,159 

160 DATA159,135,159,159,159,255,195,153, 
159,145, ‚153,153,195,255,153,1323,153 

161 DATA129,153,153,153,255,195,231,231, 

231,231,231,195,255,225,243,242,243 

162 DATATA3,147,199,255,153,147,135,143, 
135,147,153,0,0,0,0,255,0,3,255,192 

163 DATA7,255,224,15,255,240,31,255,248, 
31,255,248,63,255,252,63,255,252 

164 DATAA3,255,252,63,231,60,63,23 

3,231,252 „63,195, 252,31,195,248,31 
165 DATA129,248,15,129,240,7,0,224,3,0,1 

92,0,0,0,0,0,0,255,0,0,0,0,255,0 

166 DATAZ,255,192,7,255,224,15,255,240,3 
1,255,7248,31,255,248,63,255,252,63 

157 DATA255,252,63,255,252,63,255,60,63, 

255,60,63,239,252,63,239,252,31,23 

168 DATA248,31,231,248,15,231,240,7,231, 

224,3,231,172,0,231,0,0 „0.0,0,0,0 

167 DATAO,0,255,0, 3.255,192,7,255,224,15 
‚255,240,31,243,248, 31,243,248,63 

170 DATA255,224,63,255,0,63,248,0,63,224 
‚0,63,248,0,63,255,0,63,255,224,31 

i71 DATA235.248,31.255,248,15,255,240,7, 

255,224,3,255,192,0,255,0,0,0,0,0 

172 DATAO,0,0,0,255,0,3,255,172,7,255,22 

4,15,255,240,31,243,248,31,243,248 

173 DATAA3,255,252,63,255,252,63,248,0,& 
3,224,0,63,255,252,653,255,252,63 

174 DATA255,252,31,255,248,31,255,248,15 
‚255,240,7,255,224,3,255,192,0,255 

175 DATAO,0,0,0,255,0,0,0,0,0,0,35,0,192, 


kan 92 

















Listing »DATA-PAC« (Fortsetzung) 


7,0,224,15,129,240,31,129,248,51 
176 DATA195,248,63,195,252,63,231,252,60 
„231,252,60,231,252,63,255,252,63 
177 DATA255,252 ‚63,255 ,252,31,255, 248,31 
„255,248, 15,255,240,7, 255,224,3,255 
178 DATA192,0,255,0,0,0,0,255,0,0,0,0,19 
3,0,3,199,192,7,199,224,15,199,240 
177 DATAZ1,199,248,31,199,248,653,231,252 
„63,251,252,60,251, 252 ‚60,231 ,252 
180 DATA&Z,255,252,63,255,252,63,255,252 
‚31,255,248,31,255,248,15,255,240 
181 DATA7,255,224,3,255,192,0,255,0,0,0, 
0,0,0,0,0,0,255,0,3,255,192,7,255 
182 DATA?24,15,255,240,21,207,248, 
„248,7,255,252,0,255,252,0,31,252 
183 DATAO,7,252,0,31,.252,0,255,252,7,255 
„2532,31,255,248,31,255,248,15,755 
184 DATA240,7,255,224,3,255,192,0,255,0, 
0,0,0,0,0,0,0,0,255,0,3,255,192,7 
185 DATA255,224,15,255,240,31,207,248,31 
‚207 ,248,63,255,2532,63,255,252,0 
1B& DATA127,252,0,7,252,63,255,257,653,25 
5,252,63,255,252,31,255,248,31,255 
187 DATA248,15,255,240,7,255,224,3,255,1 
92,0,255,0,0,0,0,255,0,0,0,0,126 
188 DATAO,1,255,128,7,255,274,15,255,240 
‚31,2553,248,28,724, 56,59 ,231, 220,58 
189 DATAS6,72,58,165,92,58,36,92,59,251, 
220,60,24,60,63,255,252,63,255,252 
190 DATAA3,255, 352,63 ,255 252,57 ,231,156 
„47,195,140,33,129,132,0,0,0,255 
171 DATAO,0.0,0,0,0,0,0,32,0,2,128,0,42, 
32,0,168,40,0,136,168,2,136,40,2 
192 DATA10,3, 2,251 28,2,2,128,2,0,128,5,0 
178,31,64,80,31,65,116,23,65,244 
193 DATA21 ‚65.212,21, 65,84,5,1,84,0,0,80 
‚0,0,0,0,2,128,0,10, 160,170,2,162 
i94 DATA160,0,10,40,0,8,42,0,40,42,0,255 
„10,3,255,192,15, 255,240,15,255,240 
195 DATAsS,255,252 ‚63,255 ,252,63,253,252 
„63,245,124,61,117,124,61,125,252 
19& DATA1S,127,240,15, 255 .240,3,251,192, 
0,225,0,0,40 „0,0,0,0,0,16,0,4,16 
197 DATAO,4,16.0,4,16,0,4,16,0,4,252,0,&6 
3,2572,60,63,.48,60,12,42,170,168,37 
198 DATA150,88,37,150,88,37,150,88,37,15 
0,88,37,150,88,37,150,88,37,150,88 
197 DATAZ7,150,88,42,170,168,63,255,252, 
255,255, 255,255,0,0,0,0,0,0,0,0,0 
200 DATAO,0,0,0, 12,16,0,63,84,0,63,84,0, 
63,84,0,45, 84,0,41,95,0,170,95,0 
201 DATAL70,255,2,170, 191,2,170,172,10,1 
70,160,10,170,0,42,160,0,42,0,0,1&8 
202 DATAO,0,160,.0,0,128,0,0,255,216,234, 
234 ,224,234, 165,2 03,201,3,208,3,76 
203 DATA6S,64,234,234,201,6,208,3,76,117 
‚64,234,234,201, 12,208,3, 76,35,65 
204 DATA734,234,201,23,208,3,76,5,65,234 
6,234,76,152,66,232,169,0,56,42 
308 DATA20?,208,252,45,31,208,234,234 ,96 
,234,234,173,1,208,24, 105,8,141,1 
206 DATA208,32,102,64, 162.0.32,44,64,240 
‚7,173,1,208,56,233,8,141,1,208,169 
307 DATA243,141.248,7,234,234,234,234,23 
4,96,234,234,162,9,160,0,234,23 
208 DATA136,208,251,202,208,246,234,96,2 
34,234,173,1,208,56,233,8,141,1,208 
209 DATAZ2,102,64,162,0,32,44,64,240,9,1 
73,1,208,24,105,8,141,1,208,169,247 
210 DATA141,248,7,234,234,234,234,234,23 
4,2343,96,254,234,234,134,20,169,208 


31,207 


na (=ikra 


zıı DATA133,21, 6,20 „234,238 ,252,1 69,0,56 
„42,202 ,208, 252,23 133,182,234,234 
212 DeTA1E0 0,177 08.24 105,8,145,20,176 
„1,96,173,16,208,5,182,141,16,7208 
2713 DATA96,234,234,134,20,169,208,133,21 
‚6,20,234,232,169,0,56,42,202,208 
>14 DATA252,234,133,182,56,169,255,229,1 
82,133,182,234,160,0,177,20,56,233 
215 DATA8,145,20,144,1,96,234,173,16,208 
„37,182,141,16,208,96,234,234,162 
215 DATAO,32,161,64,32,102,64,162,0,32,4 
4,64,240,3,32,208,64,169,245,141 
217 DATA248,7,162,0,32,156,67,96,234,234 
„162,0,32,208,64,32,102,64,162,0 
218 DATAZ2,44,64,240,5,162,0,32 
69,249,141,248,7,169,0,32,214, 87 
219 DATA9&,234,162,46,189,232,59,157,0,2 
08,202,16,247,162,7,189,24,60,157 
220 DATA248 „7.202.16,247,234,234, 96,254, 
166,1672,189,0,160,41,3,96,162,2 
221 DATA189,0,157,0,212,202,16,250,16®,1 
5,141,24,212,96,234,224,234,169,0 
222 DATAI33,20,135,87,169,4, 133,.21,169,5 
6,133,88,162,24,160,397,177, 87,145 
223 DATA20,136,16,249,24,1689,40,101,97,1 
33,87,167,0,101,88,133,88,24,169 
224 DATAAD,101,20,133,20,169,0,101,21,13 
3,21,202,16,218,234,234, 234,234,189 
225 DATAO,133,20,169,216,133,21,162,24,1 
69 ,14,160,39,145,20,136, 16,251,24 
226 DATA185,20,105,40,133,20,165,21,105, 
2,133,21,202, 16 ,231,76,60,67,162 
227 DATA31,189,192,7,24,105,5,157,192,7, 
201,181,208,1,96,169,176,157,192 
228 DATA7,2072,254,192,7,1697,186,221,192, 
7,240,240,96,234,234, 134,2,138,10 
229 DATA170,232,173,1,208,7221,0,208,740, 
1,96,202,173,0,208,221,0,208,740 
230 DATA1,96,169,0,166,2,232,56,42,202,2 
08,252,24, 105,1, 133,2,173,16,208 
231 DATAZ7,2,201,0,240,5,197,2,240,1,76, 
169,0,96, 224.234, 189, 100,141,0,212 
232 DATA1689,20,141,1,212,169,129,141,4,2 
12,169,15,141,5,212,169,242,141,6 
233 DATA212,32,102,64,32,102,64,169,1728, 
141,4,212,96,162,7,138, 72,32, 251 
234 DATA6S,208,42,238,248,7,32,54,66,104 
„10,170,232,169,0,157,0,208,32,40 
235 DATA6&B,E2,218,65,169,2,32,102,64,56, 
237,1,208,248, 206,248,7,234,234, 234 
256 DATA169,0,76,151,66,104,170,202,201, 
4,208,200,96,734,234,234,173,16,208 
237 DATA41,1,13 ‚„173,0,208,56,233,16, 
133,20,165,21,233,0, 133,21,234,70 
238 DATA21,102,20,70,21,102,20,70,21,102 
„20,24,169,4,101,21,133,21,173,1 
239 DATA208 ,56,233,44,133,92,70, 32,79, 932 
70,92,162,40,24,165,92,101,20,13 
240 DATA20,169,0,101,21 "133.21.202,208,2 
30,165, 20,56,233,41, 133,20,165,21 
241 DATA233,0,133,21,160,0,169,81,209,20 
„240,45,200,209,20,240,40,200,209 
242 DATA20,240,35,160,40,209,20,240,29,2 
00,209,20,240,24,200,209,20,240,19 
243 DATA160,80,209,20,240,13,200,209,20, 
240,8,200,209,20,240,3,76,47,64,169 
244 DATAZ2,145,20,278,248,7,32,54,66,205 
‚„32,60,208,3,32,128,67,76,120,66 
245 DATA234,169,4, 133,21,169,0,133,20,13 
„87, 169,216, 133,88,234,162,24,160 
246 DATA39 , 177 ,20,201,81,208,4,169,0,145 


„161,64,1 
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‚87,136,16,243,24,165,20,105,40,133 

247 DATA20,165,21,105,0,133,21,24,165,87 
‚105,40,133,87,165,88,105,0,133,88 

248 DATA202,16,212,169,39,76,59,68,234,2 
34,234,234,162,39,189,192,7,157,33 

249 DATA60,202,16,247,32,122,65,162,39,1 
89,33,60,157,192,7,202,16,247,9& 

250 DATA234,134,2,6,2,164,2,200,185,0,20 
8,201,156,240,1,96,136,185,0,208 

251 DATA201,80,240,1,96,232,169,0,56,42, 
202,208,252,45,16,208,208,1,96,133 

252 DATA2,169,255,56,229,2,45,16,208,141 
‚„16,208,169,16,153,0,208,96,234,234 

253 DATA134,2,6,2,164,2,200,185,0,208,20 
1,156,240,1,96,136,185,0,208,201 

254 DATAB,240,1,96,232,169,0,56,42,202,2 
08,252,133,2,45,16,208,240,1,76,165 

255 DATA2,234,234,234,13,16,208,141,16,2 
08,1689,72,153,0,208,96,234,206,73 

256 DATA60,240,1,796,169,3,141,40,208,169 
‚„10,141,41,208,169,4,141,42,208,96 

257 DATA2Z4,234,169,5,141,40,208,141,41, 
208,141,42,208,169,64,141,73,60,7& 

258 DATA234,141,32,60,162,7,189,240,59,1 
57,8,208,202,16,247,234,96,234,169 

259 DATA15,141,5,212,169,251,141,6,212,1 
69,17,141,4,212,169,0,133,162,162 

260 DATA20,138,72,165,162,141,1,212,32,1 
072,64,32,102,64,32,102,64,104,170 

261 DATA202,208,235,169,10,141,1,212,169 
‚„18,141,4,212,234,234,96,234,234 

262 DATA162,3,134,97,32,251,65,240,8,166 
‚„97,202,208,244,169,255,96,32,76 

263 DATA68,173,40,208,201,245,240,3,169, 
0,96,156,77,6,77,164,97,185,232,59 

264 DATA1ST,0,208,185,233,59,153,1,208,2 
32,56,169,0,42,202,208,252,133,97 

265 DATA149,255,56,229,97,45,16,208,141, 
16,208,234,254,160,40,32,218,65,32 

266 DATA219,68,136,208,247,76,148,68,234 
‚234,152,72,169,15,141,5,212,167 

267 DATA255,141,6,212,169,48,141,1,212,1 
69,17,141,4,212,32,102,64,169,0,141 

268 DATA4,212,104,168,96,234,234,234,234 
„254,32,122,65,32,68,65,32,103,65 

269 DATA165,207,201,64,240,250,234,234,2 
34,234,32,0,64,32,93,66,32,132,68 

?75 DATA240,25,32,160,70,32,132,68,240,1 
7,32,17,68,162,20,160,0,234,13&,208 

271 DATAZ252,202,16,247,76,22,69,234,234, 
206,227,7,169,176,205,227,7,240,18 

272 DATA234,169,32,133,2,32,102,64,198,2 
„208,249,32,128,67,76,6,69,234,234 

273 DATA162,0,189,219,7,221,205,7,240,3, 
16,23,76,234,232,224,5,208,239,234 

274 DATA234,234,234,234,234,234,234,2534, 
234,234,234,96,234,162,0,189,219 

275 DATA7,157,205,7,157,205,59,232,224,5 
‚208,242,96,165,252,197,254,144,3  _ 
276 DATA240,3,96,24,96,165,251,197,253,1 
44,248,56,96,234,134,2,138,10,168B 

277 DATA185,0,208,133,20,169,0,133,21,56 
‚„42,202,16,252,234,45,16,208,240 

278 DATA4,169,1,133,21,234,56,165,20,233 
‚„24,133,20,165,21,233,0,133,21,70 

279 DATAZ1,102,20,70,21,102,20,70,21,102 
‚20,254,185,1,208,56,233,52,74,74 

280 DATA74,170,224,0,240,16,24,165,20,10 
5,40,133,20,165,21,105,0,133,21,202 

281 DATA208,240,24,169,4,101,21,133,21,2 


Ausgabe 8/August 1984 





34,162,8,188,74,60,177,20,201,32 , 

282 DATA240,22,201,81,240,18,201,71,240, 
14,201,72,240,10,201,76,240,6, 201 

283 DATA77,240,2,56,96,202,16,222,24,96, 
234,234,234,234,173,0,208,133, 251 

284 DATA173,16,208,41,1,133, 252,234 ,234, 
185,74,10,170,189,0,208,153, 253, 16& 

285 DATA94,167,0,56,42,202,16,252,234,45 
‚16,208,208,5,133,254,76,87,70,169 

286 DATA1,133,254,234,32,140,6897,208,1,76 
‚234,144,12,173,40,208,201,245,240 

287 DATALS,1686,942,76,123,70,254,173,40,2 
08,7201,245,240,2453,166,94,76,142 

288 DATA7O0,234,166,94,32,161,64,166,74,3 
2,159,67,144,5,166,794,32,208,64,76 

2897 DATAZI4,166,94,32,208,64,166,74,32,1 
59,69,144,5,166,94,32,161,64,96,254 

290 DATA159,3,133,94,32,38,71,240,6,32,3 
6,70,32,212,70,198,74,208,241,976 

271 DATAZF4,234,138,10,170,189,1,208,24, 
105,8,1537,1,208,96,234,234,138,10 

292 DATA170,56,189,1,208,273,8,157,1,208 
,96,76,165,974,10,170,187,1,208,133 

293 DATA253,173,1,208,133,251,169,0,133, 
252,133,254,234,32,140,59,208,1,76 

794 DATA144,26,173,40,208,201,245, 240,27 
‚234,166,74,32,181,70,166,74,32,159 

295 DATA&F,144,5,166,94,22,196,70,96,173 
‚40,208,201,245,240,231,234,165,74 

?=& DATAZ2,176,70,166,74,32,159,69,144,5 
‚166,74,32,181,70,76,234,165, 162 

257 DATA1I7O,1989,0,140,41,5,201,0,76, 234, 
-i 
300 
310 
320 
330 INPUT ’LEEIDEATA=>MA. ODER BTBEST ";,A 
WE 

340 IFAUE="D"THENSOO 

350 : 

3,0 REM sunaxaae TEST Haren 

370: 

380 READA:GE=GE+1: PF=FF+A: IFAZ>-1THENSBO 
390 : 

400 IFGE>SFFFTHENFRINT"#*#* ZUVIELE DATE 
N #888 

410 IFGE{SFSSTHENPRINT"#### ZUWENIG DATE 
N ##%%* 

420 IFPF<>676734THENPRINT"###+# FRUEFSUMM 
E VERKEHRT ##*# 

430 IFPF<>4754734THENPRINT"DIFFERENZ: "674 
734-PF 

440 IFPF<>6767340RGE{ F5939THENEND 

450 : 

460 : 

470 REM #33 %#+ DATA-MA Kran 

480 : 

470 RESTORE 

500 PRINT"WENN DIE RICHTIGE DISKETTE EIN 
LIEGT,E BITTE EINE TASTE DRUECKEN... 
510 POKE178,0 

520 GETAS: IFAF=""THENSZO 

530 : 

540 BPEN1,8,2,"MA-PAC,PRG,WRITE" 

550 PRINT#1 „CHR# (OJ CHR# (483 5 

560 FORT=1T05938: READA=:PRINT#1 ,CHR# (A)y: 
NEXT 

370 PRINT#1 ,CHR$(133:CLOSEI 

580 NEW 

READY. Listing »DATA-PAC« (Schiuß) 


ArRaia OR 


Brae 





Von den 
Kleinen auf 
die Großen 


Für einen so erfolgreichen Computer 
wie den Commodore 64 dauert es na- 
turgemäß nicht lange, bis auch ent- 
sprechend viel gute Software zur Ver- 
fügung steht. Viele von diesen Pro- 
grammen, die nicht die speziellen Ei- 
genschaften des C 64 benutzen, könn- 
ten ohne weiteres auf den CBM-Gerä- 
ten der 3-, 4- und 8000-Serie laufen, 
wenn Commodore nicht überflüssi- 
gerweise den Beginn des Basic-RAM- 
Bereichs geändert hätte. 


Während jedoch der C 64 und auch der VC 20 in der Lage 
sind, auf CBM-Geräten erstellte Basicprogramme selbsttätig 
an das eigene System anzupassen (siehe dazu den entspre- 
chenden Artikel in dieser Ausgabe), besitzen die CBM-Geräte 
diese Fähigkeit nicht. Es ist vielmehr Aufgabe des Anwenders 
die Programme anzupassen, will er etwa C 64-Programme auf 
den CBMs laufen lassen. 

Im Heft 9/83 der Zeitschrift mc wurde eine einfache Mög- 
lichkeit vorgestellt, um auf C 64 erstellte Programme auch für 
die CBM-Geräte lauffähig zumachen. Es werden dabei mit Hil- 
fe einer Zählschleife die Inhalte der Speicherstellen ab 2048 
(Beginn des C 64-Basic-Bereichs) bis Programmende auf die 
Speicherplätze ab 1024 (Basic-Beginn für die CBMs) trans- 
feriert. 

Diese Prozedur dauert je nach Länge des zu transferieren- 
den Programms mitunter ein paar Minuten. Aus diesem Grund 
benutzte ich für die Umwandlung von C 64-Programmen ein ei- 
gens dafür erstelltes Maschinenprogramm. Ein versehentlich 
in den Maschinenprogramm-Bereich gePOKEter Wert sorgte 
eines Tages dafür, daß statt des ganzen Programms nur ein 
Block (256 Byte) transferiert wurde. Erstaunlich genug, das 
(ansonsten nicht lauffähige) Programm ließ sich anstandslos 
listen! 


i print'"B"tab (IO) "BEEEEtranster Co4 —> 


Diese zunächst überraschende Tatsache hat eine einfache 
Erklärung: Die Vorwärtszeiger (die ersten beiden Byte einer je- 
den Basic-Zeile) geben den Beginn der nächsten Basic-Zeile 
absolutan, dasheißt es spieltkeine Rolle, ob dieser weniger als 
80 Byte oder ein ganzes KByte weiter liegt — die Zeile wird im- 
merrichtigangesprungen. Daß das Programm dann nichtauch 
noch lauffähig ist, liegt daran, daß der Basic-Interpreter, solan- 
ge keine Sprunganweisungen vorkommen, sich nicht nach 
den Zeilenzeigernrichtet, sondern die Zeilen byteweise in ihrer 
natürlichen Reihenfolge abarbeitet. Stößt er dabei auf eine 
Lücke zwischen den Zeilen, so kann er damit nichts anfangen, 
das System stürzt ab. 

Folgende Befehlssequenz, etwa in Direktmodus eingege- 
ben, liefert zum Beispiel die Anfangsadressen der Zeilen eines 
Basic-Programms: 
x=1025: printx;: fori=1t01000: x=peek(x) + peek(x+1) 
*256: print: ifx< > Othennext 

Es wurde dabei vorausgesetzt, daß das vorliegende Pro- 
gramm nicht mehr als 1000 Zeilen Umfang hat. Willman die Ar- 
beitsweise des Betriebssystems erkennen, so kann man in der 
obigen Zahlenfolge in eine der dort stehenden Adressen (jede 
Adresse: Zwei Byte in der Form, Adresse = LSB + 
MSB* 256) statt der nächsten eine etwas später kommende 
Adresse einPOKEn. Alle dazwischen liegenden Zeilen ver- 
schwinden dann aus dem Listing, sie werden aber bei RUN 
vom Interpreter abgearbeitet. Die »verschwundenen« Zeilen 
werden wieder sichtbar, sobald eine neue Zeile mit RETURN 
»übernommen« wird. 

Nehmen wir uns die Zeit, um uns an einem Beispiel klar zu 
machen, was eigentlich im letzten Absatz gemeint ist. Ange- 
nommen die Zeilen eines Basicprogramms ergeben die Zah- 
lenfolge: 1025 1057 1092 1149 1226 1286 1350 
1412 1465 1500 

Das sind die Adressen, an denen jeweils eine Basic-Zeile 
beginnt, und zwar steht in den Speicherstellen 1025 und 
1026 zusammen die Adresse 1057, in 1057 und 1058 die 
Adresse 1092 und so weiter. Wenn wir nun zum Beispiel in die 
Adresse 1092 (und 1093) etwa die Adresse 1350 einPOKEn 
könnten, so würden die Zeilen dazwischen vom Listing ver- 
schwinden, der Interpreter würde sich aber weiterhin durch- 
laufen und abarbeiten. Wie geht das POKEn vor sich? Wenn 
Ihr System den Befehl »doke« kennt, etwa durch eine Erweite- 
rung wie Exbasic, so geben Sie einfach ein: doke1092,1350. 
Wenn nicht, so muß man sich erinnern, daß eine Adresse 
gleich dem Ausdruck MSB*256-+LSB ist, wobei MSB und 
LSB für Most Significant (höherwertiges) Byte und Least Signi- 
ficant (niederwertiges) Byte steht. Es ist in unserem Beispiel: 
msb=int(1350/256): Isb=1350—msb* 256. 

msb und Isb sind hier richtige numerische Variablen und 
müssen (das gilt für die ersten zwei Zeichen, die allein relevant 
sind) ungeSHIFTet eingegeben werden! Sie geben jetzt ein: 
poke1092,Isb:poke1093,msb 

Um ein C 64-Programm auf einem CBM listen zu können, ist 
es also nicht erforderlich, erst das ganze Programm zu ver- 
schieben, es genügt nur ein Teil davon. Genauer: ein Teil, der 


chmBEB:print"aktivieren mit Bsys Fact" 


4 fori=Ütboffrreadx:pokef&ä0ri „Kxinextinewirem verschieb.cös4->cbm 
= datal62,.0,189,1,.8,157,1,4,222,208,247,165,43,56,222,4, 1533,43, 1523 


& data45,132,47,96 


Ur. Kaisar Fetanides 


Listing des kurzen Programms für die Umsetzung von C 64-Programmen auf CBM-Computer 


ar Fra 


Ausgabe 8/August 1984 


mindestens eine Zeile enthält! Der Grund liegt darin, daß das 
System erst das Ende einer Zeile, gekennzeichnet durch eine 
0, gefunden haben muß, bevor der Sprung in die nächste Zeile 
erfolgt. 

Vorgehen: Man gibt im Direktmodus ein: 
fori=1025t01111:pokei,peek(i+ 1024):next:poke43,peek 
(43)-4 

Der Wert 1111 aus mnemonischen und Sicherheitsgründen 
(1111 - 1024> 80, Anzahl der Zeichen in einer Basic-Zeile). 
Die »Verschiebung« dauert etwa eine Sekunde. 

Man listet einige Zeilen des Programms, setzt den Cursor 
auf die erste Zeile und übernimmt sie mit RETURN. Dadurch 
werden auch alle anderen Zeiger richtig gesetzt, wobei das 
Betriebssystem gleichzeitig die einzelnen Zeilen lückenlos in 
steigenden Nummern aneinanderfügt. (Das ist übrigens auch 
der Grund, warum es zwar prinzipiell möglich, jedoch nicht ein- 
fach ist, etwa relokatible Maschinenprogramme zwischen den 
Basic-Zeilen zu verstecken. Über die Möglichkeit, Textteile in 
Basic-Zeilen zu verstecken, werden wir bei anderer Gelegen- 
heit reden). Das Programm ist jetzt auch auf CBM-Geräten 
lauffähig, von systemgebundenen Befehlen natürlich abgese- 
hen. 

Aber auch diese Prozedur ist zeitraubend, wenn mehrere 
Programme von einem System auf das andere übertragen 
werden müssen. Das kleine Basic-Programm (siehe Listing) 
namens »transfer« wäre in diesem Fall eine bessere Alternati- 
ve: Es erzeugt ein Maschinenprogramm ab Adresse 960 und 
löscht sich anschließend selbst. Das Maschinen»programm« 
bleibt, so lange der Computer nicht ausgeschaltet wird, in die- 
sem Bereich resistent, verschiebt beim Abruf mit »sys 960« ei- 
nen einzigen Block des C 64-Programms ab Adresse 2049 
auf Adresse 1025 aufwärts und setzt auch die Zeiger für den 
Beginn der Variablen richtig. 

Vorgehen: Das Basicprogramm »transfer« laden und mit 
RUN starten. Anschließend das zu verschiebende Programm 
laden, »sys 960« eintippen und mit RETURN abschließen. Da- 
durch werden die ersten 256 Byte des Basicprogramms »her- 
unter« geholt. Das verschobene Programm läßt sich jetzt li- 
sten. Cursor auf die erste Zeile setzen und mit RETURN über- 
nehmen. Gegebenenfalls eine eigene REM-Zeile als Zeile mit 
der niedrigsten Nummer übernehmen! 

(K. Petanides/rg) 


User-Port- 
isplay 


Mit dem User-Port-Display lassen sich 
viele Steuerungsprobleme lösen. Da- 
bei ist es manchmal wichtig zu erken- 
nen, ob die gewünschten Daten anlie- 
gen. Dieses Problem löst das folgende 
Programm. 





Nachdem ich mir im Sommer ’83 einen C 64 zugelegt hatte, 
begann ich mich als vorheriger Nur-Elektroniker sofort für die 
Hardware und den User-Port des Computers zu interessieren. 
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STALL 


Während einiger Steuerexperimente kam mir die Idee zu die- 
sem Programm. 

Es eignet sich gut zum Austesten eigener Ein/Ausgabeope- 
rationen. Möchte man zum Beispiel fremde Drucker anschlie- 
ßen, mit anderen Computern (zum Beispiel anderen C 64) 
kommunizieren oder irgendwelche Steuerungsprobleme Iö- 
sen, so kann man mit Hilfe dieses Programmes jederzeit (auch 
während der Basic-Programmbearbeitung) erkennen, ob am 
User-Port die gewünschten Daten anliegen. 

Die Routine ist in Maschinensprache geschrieben, das Li- 
sting zeigt den Basic-Lader. Nach dem Starten des Pro- 
gramms wird in der rechten oberen Ecke des Bildschirms nach 
einmaligem Aufruf ständig binär der momentane Zustand des 
Datenregisters angezeigt. 

Mit SYS 49309 setzt das Programm den IRQ-Vector auf die 
eigentliche Anzeigenroutine. 

Mit RUN/STOP-RESTORE wird der Zeiger wieder zurückge- 
setzt. 

(Jan Legenhausen/gk) 


10 rum KR RHERRRTRHR HH TH HH HR 


15 rem ##* userport-display K## 
zZ0 rem ##* *% 
30 rem ##* (c) by jan legenhausen #*+ 
40 rem *#* #r* 
42 rem ##+ nocken 11 KR 
44 rom ##%* #R* 
46 rem #%# 5& wuppertal 11 *rr 
48 rem #*# ER 
so rem ##+ fuer den c-64 erH 


S5 rem FKFHFHHHEHUNURAHNKERTHHHRRHH HI HN HH 

&0 rem ##* start mit sys (49309) ##+ 

TO rem FHFRHHERTHRERFHREHFEHNERHHENKHRNN 
100 data 169, 48, 157, 30, 4, 169, 0, 15 

7, 20, 214, 173, 1 

110 data 221, 254, 96, 
192, 173, 1, 221, 162 
120 data 0, 160, 46, 140, 0, 

8, 208, 98, 32, 9 


169, 192, 141, 1, 


192, 41, 12 


130 data 192, 232, 160, 59, 140, O0, 192, 
41, 64, 208, 85, 32 

140 data 9, 192, 232, 160, 72, 140, 0, 1 

92, 41, 32, 208, 72 

150 data 32, 7, 192, 232, 1&0, 85, 140, 

0, 192, 41, 16, 208 

160 data 59, 32, 9, 192, 232, 160, 98, 1 
40, 0, 192, 41, 8 

170 data 208, 46, 32, 9, 192, 232, 160, 
111, 140, 0, 192, 41 

180 data 4, 208, 33, 32, 9, 192, 232, 16 

0, 124, 140, 0, 192 

190 data 41, 2, 208, 20, 32, 9, 192, 232 
„160, 137, 140, 0 

200 data 192, 41, 1, 208, 7, 32, 9, 192 

210 data 76, 49, 234, 234, 169, 49, 157, 
30, 4, 169, 0, 157, 30, 216, 173, 1 

220 data 221, 108, 0, 192, 169, 24, 141, 
20, 3, 169, 192, 141 

250 data 21, 3, 96 


2000 fors=491861t047152+167:reada: zz=zz+ta 
:pokes,a:next 

2100 ifzz<>17028thenprint"fehler in data 
-zeilen !":stop 

zZ110 sys493097 

ready. 


Der Basic-Lader des Programms 
»User-Port-Display« 


Ikaa 07 


Er 


Autostart für 
den VC 20 


Will man Programme vor unbefugten 
Eingriffen schützen, so ist dies nur 
möglich, indem man die Programme 
auf EPROMs ab $A000 schreibt, die 
sich dann nach dem Einschalten des 
VC 20 selbst starten (Modulspiele, 
Toolkit). Es ist aber auch möglich, sol- 
che »Autostart«-Programme mit der 
Datasette und dem VC 20 zu generie- 
ren. 


Ein automatischer Programmstart ist überhaupt erst mög- 
lich, weil das Betriebssystem des Computers nach dem Laden 
eines Programmes vom Kassettenrecorder einen indirekten 
Sprung über einen Vektor der Zeropage zu einer Routine des 
Betriebssystems durchführt. Beim VC 20 findet dieser Sprung 
über den Vektor $0302/$0303 zum Basic-Warmstart des In- 
terpreters statt. Dieser Vektor ist jetzt so zu verändern, daß er 
auf eine selbstgeschriebene Routine zeigt, die dann nach dem 
Laden eines Programmes von der Kassette sofort gestartet 
wird. Um nun eine Wirkung zu erzielen, muß dieser Vektor also 
während des Ladevorgangs an seine ursprüngliche Adresse 
($0302/$0303) geschrieben werden. Normalerweise wer- 
den aber Programme, die mit SAVE gespeichert wurden, vom 
Computer als Basic-Programme angesehen und daher nicht 
unbedingt immer an ihre ursprüngliche Adresse geladen, son- 
dern an den Anfang des Basic-Speichers verschoben. Spei- 
chertman dagegen die Programme mit SAVE "Name"1,1 ab, so 
werden sie später immer in den Speicherbereich geladen, in 
dem sie zum Zeitpunkt des SAVEns gestanden haben. Setzen 
wir doch zum Beispiel in einem Programm (Listing 1) den 
Basic-Warmstartvektor auf $FD22 (High Byte: 253/ Low Byte: 
34) und die Basicanfang/ende-Zeiger auf den Bereich des 
LOAD-Vektors ($2B:01/$82C:03/$2D:04/$2E:03). Wenn wir 
diesen dann mit SAVE "RESET”1,1 abspeichern, erfolgt nach 
dem späteren Laden des Programms mit LOAD ein Sprung zu 
der Adresse, die durch den Vektor gekennzeichnet wird. In die- 
sem Fall wird sofort nach dem Stoppen des Kassettenmotors 
ein Reset durchgeführt (SYS 64802). 


Ein kleiner Trick hilft weiter 





Mit dieser Methode läßt sich aber nur der Basic- 
Warmstartvektor abspeichern, da das Programm im Basicspei- 
cher steht und mit dem SAVE-Befehl nur zusammenhängende 
RAM-Bereiche gespeichert werden können. Daher wird ein 
Ladeprogramm benutzt, das das eigentliche Basicprogramm in 
den Programmspeicher lädt und selbst im unteren Bereich des 
Kassetten-Puffers ($033C-$03FC) steht. Dort wird es dann 
als Name (Tape-Header) zusammen mit dem veränderten Vek- 
tor auf die Kassette geschrieben. Damit ist auch der Wert des 
Vektors auf den Bereich des Kassetten-Puffers festgelegt. 


ar an 


Wird jetzt der Kassetten-Puffer mit dem Basic- 
Warmstartvektor (der auf den Anfang des Ladeprogramms, 
$0355, zeigt) und dem Befehl SAVE” "1,1 auf eine Kassette 
geschrieben und wieder geladen, fängt der Computer nach 
dem Stoppen des Kassettenmotors sofort an, das Programm 
ab $0355 auszuführen. Statt des Ladeprogramms kann auch 
eine Hilfsroutine, die nicht länger als 192 Byte ist, in den Kas- 
settenpuffer geschrieben werden, die dann nach dem Laden, 
ohne speziellen Startbefehl, sofort zur Verfügung steht. 
Schließlich wird das zu schützende Basicprogramm nach dem 
Vektor, ohne Tape-Header (Programmname), abgespeichert. 
Würde das Basic-Programm normal geSAVEt werden, bräuch- 
te man das Autostart-Programm nur zu übergehen und könnte 
das zu schützende Basic-Programm auch so laden. Das Lade- 
Programm im Kassettenpuffer lädt dann das Basic-Programm 
in den Speicher. Danach werden die Vektoren $0318/0319 
{NMI-Vektor) und $0308/$0309 (Text-Stop-Vektor) so geän- 
dert, daß erstens die Stop-Taste nicht mehr abgefragt wird und 
zweitens beim Versuch, das Basic-Programm mit RUN/STOP 
+ RESTORE zu stoppen, das Basic-Programm abgebrochen 
wird und in einer Endlosschleife die Ausgabe eines Textes 
(»Autostart ist gesichert«) erfolgt. Zum Schluß wird das Basic- 
Programm mit RUN (in Maschinensprache: JSR $C659 
+JMP $C7AE) gestartet. 





Bedienung des Programms 
»Autostart« (Listing 2) 





1. Basic-Lader eintippen und noch einmal genau die DATA- 
Statements prüfen. 

2. Basic-Lader mit RUN starten; daraufhin wird das Maschi- 
nenprogramm generiert und vom Basic-Lader aus mit SAVE 
"Autostart Gen“1,1 gspeichert. 

3. Laden des Maschinenprogramms "Autostart Gen“ mit LOAD 
und Eingabe von: POKE 56,28:NEW. 

4. Laden des zu schützenden Programms. 

5. Autostart-Generator mit SYS 7168 starten. 

6. Programmname auf Aufforderung hin eingeben; das zu 
schützende Programm wird dann als Autostart-Programm 
geSAVEt. 

Es ist darauf zu achten, daß die Programme, die mit Autostart 
versehen werden, ausgearbeitete Programme sind, die nicht 
noch irgendeine Ergänzung oder Verbesserung benötigen. Da 
die Autostart-Programme nicht mehr zu stoppen sind, kann 
später auch nichtmehr an ihnen gearbeitet werden, so daß ein 
unfertiges Programm noch einmal neu eingetippt werden 
müßte. 


10 POKE43,1:POKE44,3:POKE45,4:POKE46,3:CLR: 
REM Basicanfang/ende setzen 

20 POKE770,34:POKE771,253: 
Warmstartvektor 

30 SAVE "Reset”1,1 

40 POKE770,131:POKE771,196:POKE43,1:POKE44, 
18:POKE45,185:POKE46,18:END 

50 REM Zeiger und Vektoren wieder auf alten Wert 
bringen 


:REM Basic- 


Das Programm "Autostart” läuft nur auf einem VC 20 mit 3,5 
KByte Speicher (Grundversion) sowie der Datasette und be- 
legt die obersten beiden Pages von 7168 bis 7616. Die ver- 
schlüsselten Programme werden automatisch in den Grund- 
versionsspeicher geschrieben. Daher ist es mit dieser Version 
nicht möglich, Programme, die auf einer Speichererweiterung 
laufen, mit "Autostart" zu versehen. 
{Dirk Rother/ev) 
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P_ wa 2 


PT 


0 POKE34877,8:FRINT"I& AUTOSTART":PRINT" 
BELOFYRIGHT i 97332": FRINT"EBY D.ROTHER" 
1 PRINT"ERFROSRAMM WIRD GELADEN (AB7145) 


2 POKES&,28: POKESS,O:CLR 
3 FORI=7168T07&17: READA:POKEI „A: SU=SU+A: 
NEXT: IFSU< >40847THENPRINT"TIPPFEHLER" EN 
D 
4 PRINT"SBITTE !3 SPACE ® DRUECKEN":WAITI 
98,1: PRINT"LMASCHINENPROGRAMM WIRD GESPE 
ICHERTEEBS" 
5 FOKESS ‚30: POKE44 ‚28: POKE43,0:POKE46 ,29 
: POKE45 „200: SAVE"AUTOSTART GEN." „1,1 
& FOKE43,1:POKE44, 16: POKE45,172: POKE46,2 
Z:END 

22 DATA149,8,141,15,144,169,3,141,134,2, 
32,95,229, 162,20,169,32,157,236,28,202,2 
08 
>24 DATA250,169,168,160,28,32,50,203,1&2, 
0,169,0,133,198,165,198,240,252,173,119 
>& DATA2,201,13,240,13,157,236,28,41,63, 
157,132,30,232,224,20,144,228,165,43,141 
28 DATA131,29,165,44,141, 132,29,165,45,1 
41,133,29,165,46, 141.134,29,173,2,3,72,1 
73 

30 DATA3,3,72,169,3,133,44,133,46,141,35, 
3,169,1,133,43,169,4,133,45,169,85,141,2 
32 DATAS,169,191,162,236,160,28,32,189,2 
55,169,1.170,168,32,186, 255,32,86,225,17 


34 DATAI131, 


29 ,133,43,133,193,173,132,29, 

133,44,133,194,173,133,29, 133,45,133,174 
36 DATA1L73,134,29,135,46,133 „175,104 ,141 
+3,3,104, 141,2,3,76,21, 247 ,65,85,84,79,8 
38 DATAB4,65,872,84,13,32,40,67,41,49,57, 
56,52,13,68,46,32,82,77,84,72,69,82,13,1 


= 
. 


40 DATAB0,82,79,71,82,65,77,77,78,65,77, 
69,58,13,13,45,45,45,45,45,45,45,45,45,4 
3 

42 DATA45,45,45,45,45,45,45,45,45,459,135, 
13,0,80,71,77, a5 „83,67, 72, 85, 84 ‚90,32 73 
44 DATAZ2, 32 ‚32, 32,32 ‚32,32,52,52,91,228 

„32,82,253,169,0,141,34,145,173,216,3,1 

= 

44 DATA193,133,43,173,217,3,133,194,133, 
| 44,173,218,3,133,174,133,45,173,219,3,13 
3 

48 DATA175,133,46,32,61,246,169,3,141,25 
5,141,41,3,169,161,141,24,5,169,156,141 
30 DATA40,.3,169,255,141,34,145,32,89,198 
„76,174,199,169,0,201,254,96,169,0,141,3 
4 

52 DATA145,32,95,227,169,8,141,15,144,1& 
9,1,141,134,2,169,189,160,3,32,30,203,76 
54 DATA166,3,65,85,84,79,83,84,65,87,84, 
13,32,32,32,73,83,84,13,71,69,83,73,67,7 


4 


56 DATA69 ,872,84,0,1,16,171,17,52,32,32435 


2 32,53 >32, 32,3 32, 32, 32, 32,32, 32,32,3 324,3 


SB DATAT2,32,32,32,32,32,32,32,32,32,32, 
32,0,0,1,255,255,255,255,255,128,0,0,0,0 
&0 DATA255 ‚255,255, 255 ,32,32,32,32,32,32 
‚32,32,32,32,32,0,0 

&2 DATA2,3,72,173,3 

READY. 


Listing 2. Basic-Lader für ”Autostart“ 
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; 
{ 


View BAM 


Dieses Programm zeigt Ihnen sekun- 
denschnell, wie und wo die Floppy Da- 
teien und Programme abspeicherrt, 
welche Blöcke noch frei sind und wel- 
che nicht. 


Das hier vorgestellte Programm stellt die sogenannte BAM 

der Disketten grafisch auf dem Bildschirm des C 64 dar. Das 
gesamte Programm ist in Maschinensprache geschrieben und 
daher sehr schnell. Es ist dem Viewbam-Programm, das von 
Commodore auf der Testdiskette mitgeliefert wird, in zweierlei 
Hinsicht überlegen: 
1. istes, wie bereits erwähnt, um ein Vielfaches schneller und 
2. stellt es übersichtlich die gesamte Diskettenbelegung dar, 
wobei freie, belegte und nicht belegbare Blöcke gut zu erken- 
nen sind. 

Eine Hardcopy läßt sich auch leicht anfertigen (siehe Bild 1). 

Das Programm braucht inklusive Ladezeit des Blockes 18/0, 
auf dem die BAM gespeichertist, unter drei Sekunden zur Aus- 
führung. (Im Vergleich zum Viewbam von Commodore, das 73 
Sekunden benötigt.) 

Es ist interessant zu sehen, wie das DOS Files abspeichert, 
welche Blöcke noch frei sind und weiche nicht. Ich wurde 
durch die geringe Geschwindigkeit und die fehlende Möglich- 
keit des Viewbam von Commodore, alle Blöcke auf einmal zu 
betrachten, zu diesem Programm animiert. 

Die Routine läuft auf dem C 64 von Commodore mit dem 
Floppy-Laufwerk VG 1541. Die Routine steht im geschützten 
Speicherbereich $C000-$C21C, dezimal 49152 bis 49693. 
Man kann sie auch in einem Basicprogramm aufrufen. 

Mit diesem Programm wird in grafischer Darstellung ersicht- 
lich, wieviele von den 664 Blöcken besetzt beziehungsweise 
frei sind. 

Nach mühevoller Eingabe der Data-Zeilen und des Ladepro- 
gramms sollte man dieses erst einmal auf Diskette sichern. 

Eine Prüfsumme wird berechnet; dadurch vermeidet man 
eventuelle Eingabefehler. 

Zuerst wird die BAM, die sogenannte »Biock Availiability 
Map«, von der Floppy in den Speicher des Computers gela- 
den. Die BAM ist im Block 18/0, das heißt Track 18, Sektor O, 
auf jeder Diskette gespeichert. 


Die BAM umfaßt 256 Bytes, die im einzelnen folgende Be- 





deutung haben: 

Bytes 0-1 Track und Sektor vom ersten Directory-Block 
{meistens 18/1). 

Byte 2 Hier steht ein »A« (ASCII-Code 65) 
für das 4040 Format 

Byte 3 nicht belegt 

Bytes 4-143 Hier stehen die für dieses Programm wichtigen Infor- 
mationen 

Bytes 144-161 Diskettenname, aufgefüllt mit geshifteten Leerzeichen 

Bytes 162-163 Disk ID 


Geshiftetes Leerzeichen 

»2A«-ASCI Repräsentation für die DOS-Version 
Geshiftete Leerzeichen 

Nullen, unbenutzt 


Byte 164 

Bytes 165-166 
Bytes 166-167 
Bytes 168-255 


Es existieren 35 Tracks, für jeden Track wurden in dem für 
uns wichtigen Bereich von Byte 4 bis Byte 143 vier Bytes re- 
serviert. Die Tracks sind auch noch in Sektoren unterteilt, ma- 
ximal 21 und mindestens 17, dies ist durch die Formel 
2*Pi* Radius begründet, das heißt, daß bei kleinerem Radius 
nach innen weniger Raum zur Verfügung steht. 


kan 09 


ULLA 


Das erste Byte eines jeden Viererblocks gibt die Anzahl der 
noch freien Blöcke in diesem Track an. 
Die nächsten drei Bytes beinhalten die Informationen, wel- 
che Sektoren in dem Track belegt sind, und welche nicht. 
Jedes Byte besteht aus 8 Bit und kann somit über 8 Sekto- 
ren Auskunft geben. Ein gesetztes Bit (1) bedeutet: freier, ver- 
fügbarer Block, ein nicht gesetztes Bit (0) bedeutet das Ge- 
genteil, dieser Block (Track/Sektor) ist belegt. 
Aus diesen Informationen kann man dann ein überschau- 


bares Bild schaffen. 


0 DATABS,49,58,50,32,48,32,49,56,32,48,1 
7,162,1,32,201,255,162,0,189,0 

i DATA192,32,210,255,232,224,12,208,245, 
96,66,45,80,58,50,32,48,13,32,204 

2 DATA?55,162,1,32,201,255,162,0,189,351, 
192,32,210,255,232,224,8,208,245 

3 DATAI6,169,1,162,8,160,15,32,186,255,1 
69,0,32,189,255,32,192,255,169 

4 DATAZ,162,8,160,2,32,186,255,169,35,13 
3,251,162,251,160,0,169,1,32,189 

5 DATA255,32,192,255,32,12,192,32,39,192 
„32,204,255,162,2,32,198,255,162 

& DATAO,32,207,255,157,0,142,232,208,247 
‚32,204,255,169,1,32,195,255,162 

7 DATAO,189,194,193,32,210,255,232,224,5 
8,208,245,162,144,189,0,142,32 

8 DATA210,255,272,224,162,208,245,169,13 
‚32,210,255,162,0,189,252,193,32 

9 DATA210,255,232,224,12,208,245,173,162 
„142,32,210,255,173,163,142,32 

10 DATA210,255,169,13,32,210,255,32,210, 
255,149,5,32,210,255,160,20,152 

11 DATA72,170,201,10,176,5,169,32,32,210 
‚255,169,0,32,205,189,169,45,32 

12 DATA210,255,104,72,240,5,169,13,32,21 
0,255,104,168,136,16,220,162,2,160 

13 DATAZ,32,10,229,160,4,169,48,162,7,20 
8,10,192,1,240,4,162,10,208,2,162 

14 DATA&,32,210,255,202,208,250,24,105,1 
„136,208,234,162,3,160,3,32,10,229 

15 DATA160,35,169,49,32,210,255,24,105,1 
„201,58,144,2,169,48,136, 208,241 

16 DATA169,1,133,2,162,4,165,2,105,2,168 
‚32,10,229,162,20,134,139,169,142 

17 DATA133,141,169,1,166,2,105,4,202,208 
„251,133,140,165,139,166,2,224,18 

18 DATA144,32,224,25,144,20,224,31,144,8 
‚201,17,144,20,162,8,208,42,201 

17 DATA18,144,12,162,8,208,34,201,19,144 
‚4,162,8,208,26,165,139,74,74,74 

20 DATA168,177,140,168,165,137,41,7,170, 
152,61,8,194,208,4,162,0,240,2,162 

21 DATA4,160,4,189,16,194,32,210,255,232 
„136,208,246,165,139,240,5,169,17 

22 DATA32,210,255,198,139,16,165,230,2,1 
65,2,201,36,208,128,32,231,255,169 

23 DATAO,133,198,165,198,240,252,96,147, 
5,18,32,146,61,66,69,76,69,71,84 

24 DATA44,46,61,70,82,69,73,44,78,61,48, 
32,18,40,67,41,49,57,56,52,32,66 

25 DATA8I,32,74,46,32,83,67,72,73,69,66, 
146,158,68,73,83,75,78,65,77,69 

26 DATA32,58,32,157,157,157,157,157,157, 
157,73,68,32,58,32,1,2,4,8,16,32 

27 DATA&4,128,18,32,146,157,158,46,5,157 
‚156,78,5,157,169,2 

1000 REM KAERHHHRHHRERNHHHNARHRIHERN 

1010 REM * VIEWBAM FUER DEN VC64 * 


1020 REM * (C) 1984 BY J. SCHIEB * 
1030 REM * RICHARD-WAGSNER-STR.SB * 
1040 REM * 4050 MOENCHENGLADBÄCHI * 
1050 REM * \ * 


100 Xän 


(Jörg Schieb/gk) 








neun 


1050 REM * STARTEN MIT SYS 49213 * 


| 

1070 REM KAHN HUREN HN RR ı 
1080 REM | 
1070 REM LADEROUTINE i 
1100 FOR X=491532 TO 49695 | 
| 

| 

x 


illO 2 READ Y . 
1120 2 FOKE X,Y 

1130 2 GS=5+Y 

1140 NEXT 


1150 IF 5{>63349 THEN PRINT"*# FEHLER IN 
DATAS !! ##"zrEND 
11&0 REM NEW 


READY. 





Der Basic-Lader von »Vier BAM« 





B=BELEGT,.=FREI,N=0 Niki | 
DISENAME : DEMODISC ID : DE _ 
OOOOONOOOLLLL1111LLFRRRRZRRZEIEIEIS | 
1234568789012745678901234536787012345 . 
One RER INN NINNNINNNNNINNNN 


19-uuunenun > REN NN NINNININNNNNNNNNN 
18-nu... nun. BASE, ERRRRRENININININNINNINNIN 
17-.nuununnn 6 BE, DEE, ERRRERERRRRNEE. . . . NINNININ | 
lömn nennen UEHEEREEEENEEN. EEE. » x > 0 > «+» | 
3 3 DO ji Poren | 
1d-uuuun. u. 6 UNE. ERESEEEEN. » > © « - - 
1Smnaununen „HE. EEE. KENIERESSEERENE. 0. =. > - - 
benennen UNMEEREEEHENG. BERNER. . . - =» - .. . 
lmuununuunn HAHN. KEN. TERERENERNERERE. . 2 0 =. - - « 
10m 6 TEE. EEE. > > = | 
5 | Poren | 
Beuueununnn HAEIENEHREEREEEEE. EEE. » » > = > «> | 
Fmunnunnunen EREHAEEEREERERREEENEEEEG. . - . » - - - - 
E-unuen 5 MO Poren 


B=BELEGST,.=FREI,N=0 EEE | 
DISKNAME : HERLET 012 ID : S2 
GOGOOOOOOLIL11L1ILLLZERZRZERZETZEISN 
12245678901234567890123456789012545 
2 C — BEBEEEEREREEEESEEEBEEERREEN N N NNNNNNNNNNNNNNN \ 
17-— . ERBEIEREEEEEERETEN IN NININNNNNNNNNINNNNN 
18 — ERREGER . NERSEERBEREN N INININININIINNN 
17 — BERECHNEN „ EREEESERERERERRRGEEREEREN INN 1\}\I 
1.&-- EEGESKREESERSEEESSBENENSGHENGEEN. ENERENSHEHESESSCHERNEEENG.. . . 
15 -— BEERENEENSESEEENEISEGGERNERENENENN. ENGERDIEREREEHEERREGERENN. . . 
1 4-- BEEMEIEERHEURMGENNEESIEINBENHUDGEN. EEREDEIRENEEHEEERENHREERGEEEN. „ 
12 -— BUMEMEBENBGBSERNESSEERGEIEEN „ KEENEERRRDEERSEREEIEENEN . „ . 
2 -- ERERSEEICEEIEIEEHSEEEEEEN . UEEERRERENEEEESEEE. . . 
1 1 -- ERUMEEEEERMEISHESGRUGECGEENGERSNENNN. GEEEEENEEENEEEEEEHEENIE. „ . 
1 >-- BERKEGRISRERBEBSERIRGEEERERERENENN. HEREEERERERHRRIHHRENERNENEN. . . i 
7— „ MEEERESGEEBENNENGERGRNSEENEIEEN. GEREIIEHRESERREENERNSEEEEGE. . . 


Bild 1. Zwei Beispiele von »View BAM« 
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»PRINT AT« 
und 
»RESTORE N« 


Die hier vorgestellte kleine Basic- 
Erweiterung bringt zwei häufig benö- 
tigte Funktionen, nämlich die PRINT 
Ausgabe an einer wählbaren Bild- 
schirmposition und das Setzen des 
DATA-Zeigers auf einen bestimmten 
Datensatz. Zusätzlich ist noch die 
Möglichkeit gegeben, beliebige Bild- 
schirmzeilen zu löschen. 


Invielen Leserbriefen wurde nach einem geeigneten »PRINT 
Ak gefragt. Da bislang keine optimale Lösung angeboten wur- 
de, habe ich nun einen »PRINT AT-Ersatz« geschrieben. Diese 
Ersatzroutine arbeitet sehr zuverlässig und ist denkbar einfach 
anzuwenden. Das 146 Bytes lange Maschinenprogramm ent- 
hält außerdem eine Routine, mit der man beliebig viele Bild- 
schirmzeilen löschen kann und eine Erweiterung des Restore- 
befehls, nämlich »RESTORE N«. Es ist nun möglich, die Data- 
Zeile, aus der das nächste Statement gelesen werden soll, 
selbst zu bestimmen, ohne die nichtbenötigten Daten zu über- 
lesen. Der Datazeiger kann zum Beispiel mit »RESTORE 1100« 
direkt auf Zeile 1100 gestellt werden und beim ersten »READ« 
wird das erste Statement aus Zeile 1100 gelesen. Beim Umnu- 
merieren eines Programmes mit diesem Befehl ist die Zeilen- 
angabe' von Hand zuändern, daRenumberroutinen diesen Be- 
fehl nicht berücksichtigen. Der Restore-Befehl kann nach wie 
vor auch ohne Angabe einer Zeilennummer verwendet wer- 
den. 

Für die Bildschirmzeilen-Löschroutine steht ein Kurzbefehl 
zur Verfügung. Die Syntax ist »EA,B«. In A steht die Nummer 
der obersten, in B die Nummer der untersten zu löschenden 
Zeile. Beispiele: 
£0,22 löscht den ganzen Bildschirm 
£0,0 löscht die oberste Zeile - 
£4,9 löscht BS-Zeilen 4 bis 9 (5. bis 10. von oben) 

Das besondere an dieser Einrichtung ist, daß die Cursorpo- 
sition dabei nicht verändert wird. Folgt der »£«-Befehl auf eine 
IE.THEN-Abfrage, so ist vor dem »£«-Befehl ein »:« zu setzen. 
Wird er vergessen, meldet der Interpreter einen »Syntax Er- 
ror«. Die Werte von A und B müssen zwischen O und 22 liegen. 

Auch die PRINT AT-Routine wird mit einem Kurzbefehl aufge- 
rufen. Das Kurzzeichen ist der Klammeraffe (»@«) oder besser 
das »AT«-Zeichen. Die Syntax lautet: »@, X, Y; Ausdruck«. X 
steht für waagerecht, Y für senkrecht. | 
X darf Werte zwischen O und 21, Y Werte zwischen O und 22 
erreichen. Andernfalls wird ein »Illegal Quantity Error« ausge- 
geben. Für X und Y sind möglich: 

1. Direkte Zahlenangabe 
2. Wertangabe in Form einer Variablen 
3. Eine Formel als Koordinate. 

Der Ausdruck kann Text (in Hochkommata eingeschlossen, 
Strichpunkt kann entfallen) oder eine Stringvariable (Strich- 
punkt unbedingt erforderlich) sein. Der Nullpunkt der Koordi- 
naten ist die obere, linke Ecke. Einige Beispiele: 
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TIPS & TRICKS 


@0,0”VC-20” Text beginnt oben links 
@XYVC-20” Text erscheint an gegebener Position 
@A+BS3+A;A$ String A$ wird gedruckt 

@0,10; Cursor wird für »Input« positioniert 


Auch hier ist bei einer IF...THEN Abfrage zwischen »THEN« 

und dem »@«-Befehl ein »:« zu setzen. 
Das Programm läuft sowohl auf der VC 20-Grundversion als 
auch mit Erweiterung, nicht jedoch mit der 40-Zeichen-Karte. 
Der Basiclader (Listing) lädt das Maschinenprogramm ans 
Speicherende. Hierzu wird der für Basic zur Verfügung ste- 
hende Speicherplatz um 256 Bytes verkürzt. Dies übernimmt 
Zeile 10. In Zeile 20 wird die Anfangsadresse berechnet und 
dann das Maschinenprogramm in den Speicher gepoket. Ne- 
benbei wird eine Prüfsumme gebildet. Sollte diese nicht gleich 
17442 sein, wird der Programmablauf in Zeile 70 abgebro- 
chen. ist der Prüfsummencheck OK (dies meldet das Pro- 
gramm), wird das Maschinenprogramm aufgerufen (Zeile 90). 
Abschließend meldet der VC 20 Interpreter »READ« und die 
Befehle stehen nun zur Verfügung. Wenn das Maschinenpro- 
gramm an einer bestimmten Stelle des Speichers stehen soll, 
kann dies durch Löschen der Programmzeile 10 und Ändern 
der Zeile 20 in »20 ES=[ADRESSE]« erreicht werden. Einen 
geeigneten Platz bietet zum Beispiel die 3KByte-Erweiterung, 
wenn Block 1 erweitert (3KByte oder 16KByte) ist. Auch der 
Kassettenpuffer (AB 828) ist verwendbar, jedoch nur bei Dis- 
kettenbetrieb empfehlenswert, da das Programm dann bei je- 

der Kassettenoperation gelöscht wird. 
(Jürgen Reinert/ev) 








REM HRRERNERRERNTRRHTNEREN NEN 
REM * PRINT AT / RESTORE N * 
REM # (C} 1985 * 
REM * BY JUERGEN REINERT * 
REM KH RENNRHEHH HH 


SEUSsuUne 



































10 POKES&,PEEK (56) -1:CLR 
20 ES=PEEK (55) +256*PEEK (56) +2 

30 HB=INT ( (ES+11) 7256) 

40 LB=ES+11-HB*256 

50 FORI=0T0145:READA: POKEI+ES,A 

60 S=S+A: NEXT 

70 IFS{>17442THENPRINT"WDATA ERRORB":END 
80 PRINT"BOK." 

90 POKEES+1 ,LB: POKEES+6 ,HB: SYSES: END 
100 FORI=0T0145: READA: NEXT 

110 DATA169,11,141,8,3,169,8 

120 DATA141,7,3,96,169,199,72 

130 DATA169,173,72,32,115,0,240 

140 DATA244,201,140,240,8,201 

150 DATA64,240,38,208,76,234 

160 DATA234,32,115,0,240,26,201 

170 DATASB,240,22,32,138,205 

180 DATAS2,247,215,32,19,198 

1790 DATA56,165,95,233,1,164 

200 DATA96,176,1,136,76,39,200 

210 DATA76,29,200,32,115,0,32 

220 DATA158,215,224,22,176,24 

230 DATA138,72,32,253,206,32 

240 DATA158,215,104,224,23,176 

250 DATA11,168,24,32,240,255 

260 DATAS2,121,0,76,160,202,76 

270 DATA72,210,234,234,234,201 

280 DATA9?,240,4,56,76,237,199 

290 DATA3?,115,0,32,235,215,224 

300 DATA23,176,232,164,20,192 

310 DATA23,176,226,32,141,234 

320 DATA202,228,20,16,248,76 

330 DATA121,0,0,0,0 
READY. 








PRINT AT und RESTORE N für den VC 20 
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Den meisten Anwendern wird sich 
schon einmal das Problem gestellt ha- 
ben, wie sie Programme von anderen 
Computersystemen auf ihr eigenes 
übertragen können. Dieser Artikel soll- 
te es jedem ermöglichen, auch kom- 
plexe Basicprogramme der weitver- 
breiteten Commodore-Systeme CBM 
30XX, CBM 40XX (hier kurz als CBMs 
bezeichnet) und C 64 füreinander um- 
zuschreiben. 


Hat man das Programm fertig eingegeben und auf Kassette 
oder Diskette abgespeichert, so ist das Laden von CBM- 
Programmen in den C 64 kein Problem: Disketten- und Kasset- 
tenformat sind identisch (zumindest bei den Doppellaufwerken 
2031 und 4040 mit dem Einzellaufwerk VC 1541). Der Basic- 
Benutzerspeicher beginnt beim C 64 mit der Speicherstelle 
2048 und endet bei 40959. Ein spezielles »Verschiebepro- 
gramm« im C 64 sorgt dafür, daß CBM-Programme in den rich- 
tigen Speicherbereich geladen werden. Wer jedoch schon 
einmal versucht hat, © 64-Programme in einen CBM zu laden, 
wird damit keinen Erfolg gehabt haben, denn die CBMs besit- 
zen kein solches Programm. Dort beginnt der Speicher für 
Basic-Programme bei 1024 und endet, je nach RAM- 
Ausbaustufe (8 KByte, 16 KByte oder 32 KByte) bei späte- 
stens 32767. In einen CBM geladene C 64-Programme sind 
ohne Verbiegung von Zeigern weder zu listen noch zu starten. 
Man könnte bei den CBMs nach dem Laden den Zeiger für den 
Programmanfang verändern (durch den Befehl »POKE 
40,0:POKE 41,8«), aber man müßte dies jedesmal nach dem 
Laden tun, ein auf die Dauer sehr umständliches Verfahren. Ein 
entsprechendes »Verschiebeprogramm«, welches diesen Auf- 
wand vermeidet, finden Sie unter der Überschrift »Von den 
Kleinen auf die Großen« in dieser Ausgabe. Nun zur eigentli- 
chen Arbeit, dem Umschreiben: Alle Computer haben die glei- 
chen Basic-Anweisungen (bis auf die CBMs der Serie 4000, 
welche zusätzlich komfortable Diskettenbefehle besitzen). Sie 
unterscheiden sich im wesentlichen nur durch die Speicher- 
belegung und die Farbe, die Sprites und die hochauflösende 
Grafik des C 64. 

Der Bildschirmbereich: 

Die meisten Basicprogramme erstellen bewegte Grafiken 
mit Hilfe der Befehle PEEK und POKE. Im Bildschirmbereich 
wird durch den Befehl »POKEX, Y«an der Stelle mit der Adres- 
se X das Zeichen mit dem Bildschirm-Code Y gesetzt. Ge- 


102 Zar 





löscht wird es dann durch den Befehl »POKE X, 32«, denn die 
Zahl 32 entspricht dem Leerzeichen (Blank). Durch PRINT 
PEEK(X) kann man abfragen, welches Zeichen sich an der 
Stelle X befindet. Der Bildschirmcode ist bei allen drei Syste- 
men identisch. Jedoch liegt der Bildschirmspeicher an unter- 
schiedlichen Stellen: Bei den CBMs zwischen 32768 und 
33767, beim C 64 zwischen 1024 und 2023. Wenn man ein 
CBM-Programm auf den C 64 überträgt, muß man also von al- 
len Bildschirmadressen 31744 subtrahieren, umgekehrt 
31744 addieren. 

Jedoch kommt da noch ein kleines Problem hinzu: Der C 64 
kann 16 Farben darstellen. Dazu besitzt er einen Farbenspei- 
cher, welcher ganz analog zum Bildschirmspeicher zu behan- 
deln ist. Erbeginnt bei 55296 und endet bei 56295; die Diffe- 
renz zwischen Bildschirmadresse und Farbadresse beträgt 
54272. Wenn man also ein CBM:Programm für den C 64 um- 


gedrückte Taste CBM 30XX CBM 40XX Commodore 64 


- 75 95 57 

1 26 49 56 

2 18 50 59 

3 25 51 8 

4 42 52 11 

5 34 53 16 

6 41 54 19 

| 7 58 55 24 
, 8 50 56 27 
9 57 57 32 
| 0 10 48 35 
: + 17 43 40 
_ 9 45 43 
| £ e - 48 
i HOME 7 19 51 
INS/DEL ? ? 0 
: Q 64 81 62 
' w 56 87 g 
| E 63 69 14 
R 55 82 17 
| T 62 84 22 
Y 54 89 25 
U 23 86 30 
i ! 53 73 33 
| o 60 79 38 
p 52 80 41 
| @ 15 64 46 
' * 33 42 49 
| 1 59 94 54 
A 48 65 10 
s 40 83 13 
D 47 68 18 

F 39 70 21 

i G 46 71 26 
' H 38 72 29 
; J 45 74 34 
K 37 75 37 
. L 44 76 42 
j = 1 61 53 
RETURN 27 13 1 
; zZ 32 90 12 
. x 24 88 23 
i c 31 67 20 
v 23 86 31 

B 30 66 28 

N 22 78 39 

M 29 77 36 

; 70 44 47 

. 2 46 44 

/ 49 47 55 

CRSt ? ? 7 

CRS- ? ? 2 


SPACE 6 32 60 


Tabelle 1. Vergleich der Tastaturcodes 
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schreibt, muß man hinter jedem POKE-Befehl für den Bild- 
schirm einen entsprechenden für die Farbe anhängen, also 
zum Beispiel hinter POKE 1024,64 anfügen: POKE 1024 + 
54272,X ‚wobei X eine Zahl zwischen O und 15 ist, welche 
dann die Farbe des Zeichens bestimmt. Dieser Befehl kann 
weggelassen werden, wenn ein Zeichen gelöscht wird, also im 
Befehl der Bildschirmcode 32 (= Leerzeichen) eingesetzt 
wird. Die Farbcodes haben folgende Bedeutung: 


O:schwarz 8:orange 
1:weiß 9:braun 
2:rot 10:hellrot 
S:türkis 11:grau 1 
4:violett 12:grau2 
ö:grün 13:hellgrün 
6:blau 14:hellblau 
7:gelb 15:grau 3 


Umgekehrt müssen die POKE-Befehle für den Farbenspei- 
cher bei einer Übertragung auf die CBMs gestrichen werden. 
Sprites und hochauflösende Grafik können nicht auf die CBM- 
Serie übertragen werden. 





Tastatur und Joystick 





Viele Programme fragen durch PEEK die gerade gedrückte 
Taste ab. Dazu existiert in der Zero-Page eine Speicherstelle, 
in welcher sich die Matrixkoordinate der gerade gedrückten 
Taste befindet. Bei den CBMs ist dies die 151, beim C 64 die 
203. Die Wirkungsweise kann man sich leicht durch folgendes 
kleines Programm verdeutlichen: 

10 PRINT PEEK (203) 
20 GOTO 10 

(Bei den CBMs muß die 203 in Zeile 10 durch 151 ersetzt 
werden). Nach dem Starten durch RUN erscheint eine Reihe 
von Zahlen, beim C 64 die 64, bei den CBMs die 255. Drückt 
man nun irgendeine Taste, so erscheint eine gerade Zahl, je 
nachdem, welche Taste gerade gedrückt ist. In Tabelle 1 istein 
Vergleich der Tastaturcodes dargestellt. 

Es gilt, einige besondere Adressen zu beachten: 

CBM: In 152 steht 1 (anstatt O), wenn die Taste SHIFT ge- 
drückt ist. 

C 64: Adresse 653: 

0: wenn nichts gedrückt 

1: SHIFT gedrückt 

2: Commodore-Taste gedrückt 

4: CTRL gedrückt 

Dazu noch ein Tip für eigene Programme: Meistens benötigt 
man für ein Spiel eine Unterscheidung zwischen verschiede- 
nen Tastendrücken (zum Beispiel bis zu neun verschiedene 
Tasten für die Richtungssteuerung eines s Raumschiffes). Am 


1 REM KANONE 

5ZA = 1984:ZE = 2023:0P = 2004 
10 DIM A%(255) 
20 A%(56) = —1:A%(59) = 


=] 
| 
| 
1000 REM ABFRAGE — ZEICHEN SETZEN, SUBROU- | 
TINE 
- 1010 NP = OP + AX(PEEK(203)):;REM NEUE POSI- | 
TION | 
1020 IF NP >ZEORNP<ZATHENNP =OP:REM | 
ZEILENBEGRENZUNG - | 
1030 POKE OP, 32:REM ALTE POSITION LÖSCHEN | 
1040 POKE NP. 30:REM NEUE POSITION SETZEN | 
1050 POKE NP+54272,1:REM FARBE SETZEN 
: 1060 OP =NP | 
1070 RETURN | 
| 


Listing 1. Ein kleines Beispielprogramm für den C 64. 
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schnellsten funktioniert die Abfrage, wenn man ein Feld mit 
256 (Ganzzahl-)Variablen definiert (zum Beispiel A%(255)), 
und die Richtung als Wert des entsprechenden Indexes darin 
speichert. 

Beispiel (hier für C 64): Wir wollen für ein Spielprogramm ei- 
ne Kanone (thaben, die man am unteren Bildschirmrand mit 
Taste ”1” nach links und mit Taste ”2” nach rechts steuern 
kann. In unserem Beispiel würde das Programm entsprechend 
Listing 1 aussehen. 

A% (255) ist das Variablenfeld. Der Tastaturcode von "1" ist 

beim C 64 die 56, von ”2” die 59. Die Tastaturadresse ist 203. 

Variablen: 

OP die alte Position der Kanone 

NP die neue Position der Kanone 

ZE Bildschirmadresse am Ende der Zeile, in der sich die 
Kanone bewegt 

ZA Bildschirmadresse am Zeilenanfang 

CBM-Besitzer können nach Studium des Artikels an diesem 
Beispielprogramm ihr neugelerntes Wissen ausprobieren. Die 
Lösung steht am Ende des Artikels (aber nicht vorher nach- 
schauen!). 

Diese Methode istauch bei der Verwendung eines Joysticks 
nützlich, denn dieser muß ähnlich wie die Tastatur mit PEEK 
abgefragt werden. Seine Adresse ist 56321 (Port 1} bezie- 
hungsweise 56320 {Port 2), wobei Port 1 weniger geeignet 
ist, da der Inhalt seines Speichers auch von der Tastatur beein- 
ußt wird. Die Codierung ist der Tabelle 2 zu entnehmen. 


I Bewegung: Port 1 Port 2 | 
: Feuer-Taste 239 111 
| nach oben 254 126 
| nach unten 253 125 | 
| nach rechts 247 119 
; nach links 251 123 | 
: nach links oben 250 122 | 
‘ nach rechts unten 245 117 
| nach rechts oben 246 118 | 
| nach links unten 249 121 
| keine Taste gedrückt 255 127 | 
| | 
L. uch 


Tabelle 2. . Die Codierung der Joystick-Ports _ 


Die CBMs besitzen keinen Anschluß für Joysticks, es gibt je- 
doch diverse Konstruktionen zum Anschluß an den User-Port. 
Daher empfiehlt es sich, beim Übertragen von C 64-Program- 
men auf die CBMs auf den Joystick zu verzichten und diese 
Programmteile durch Tastaturabfragen zu ersetzen. 


PRINT-Befehle 


Die ASCII-Codes sind bei allen drei Systemen größtenteils 
identisch, sie unterscheiden sich praktisch nur in den Farb- 
steuerzeichen und der Umschaltung von Grafik auf 
Groß/Kleinschreibung. Die Umschaltung auf Groß/Klein- 
schreibung erfolgt bei den CBMs durch den Befehl "POKE 
59468,14” und zurück auf die Blockgrafik durch "POKE 
59468,12”. C 64-Besitzer benutzen hier den Befehl "PRINT 
CHR$(14)” (Kleinschreibung) beziehungsweise den Befehl 
"PRINT CHR$(142)” (Grafik). Beim Übertragen von Program- 
men auf den C 64 kann man nach Belieben Farbsteuerzeichen 
einfügen, umgekehrt sind diese zu löschen. 











Der Ton 





Wichtig für das Übertragen von Programmen mit Ton ist vor 
allem die Tonhöhe und ihre Adresse. Beim C 64 stehen drei 
Tongeneratoren zur Verfügung. Ihre Tonhöhe wird dabei durch 
je zwei Adressen bestimmt, wobei die erste Adresse (das Low- 
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Byte) die Tonhöhe nur sehr wenig, die zweite Adresse (das 
High-Byte) die Tonhöhe hingegen wesentlich stärker (nämlich 
genau 255 mal so stark wie das Low-Byte) beeinflußt. In der 
Tabelle 3 sind die wichtigsten Tonadressen des Commodore 
64 zusammengefaßt. 

(Adresse = 54272 + Register) 

Bei den CBMs steht jedoch nur ein Tongenerator zur Verfü- 
gung, auch können dort weder Wellenform, noch Lautstärke, 
noch Hüllenkurve programmiert werden. Daher ist es bei der 
Übertragung von C 64-Programmen auf die CBMs bei komple- 


REGISTER 
: Stimme 2 2 3 


INHALT 





| 0 7 




















6 13 20 Halten +  Ausklingen 
0 (schnell)— \ 


15 (langsam) 


\ 14 Frequenz Low-Byte (0-255) 

| 1 8 15 Frequenz High-Byte (0-255) 

2 9 16 Tastverhältnis Low-Byte (0-255) 

! bei Rechteck 

E 

3 10 17 Tastverhältnis High-Byte (0-15) 

4 11 18  Wellenform: Rauschen = 129 

! Rechteck = 65 

Sägezahh = 33 

: Deecck = 17 

| 5 12 19 Anschlag +  Abschwellen | 

} 0 (hart) — © (hart) — 
15*16 (weich) 15 (weich) ; 


j 0 (stumm) — 
| 15*16 (laut) 





24 24 24 Lautstärke: O (stumm) — 15 (volle Laut- | 
| stärke) 





| Tabelle 3. Die wichtigsten Tonadressen von C 64. 





jenen 


























;  Doppelfloppy 4040 Monofloppy 1541 
"(die neuen 4er Befehle stehen in Klam- 

u) N 
\ Diskette neu formatieren: | 
! OPEN 1,8,15."NO:Name,XX” OPEN 1,8,15/’N:Name,XX” | 
ı  (HEADER”Name//IXX : 
I = Laufwerksnummer) 
Inhaltsverzeichnis lesen: 
LOAD”$1”,8 bzw. LOAD”$”,8 LOAD”$”,8 
! (DIRECTORY) 

‚  LOAD”Name",8 

bzw. LOAD”Name1”,8 
(DLOAD”Name” bzw. 
DLOAD”Name”D1) 

i Beliebiges Programm sichern: 
ı  SAVE”Name”,8 bzw. 

ı  SAVE”Namet”,8 
(DSAVE”Name” bzw. 
DSAVE”Name",D1) 

Datei löschen: 

OPEN 1,8,15’SO:Name” 

bzw. OPEN 1,8,15,’S1:Name” | 
(SCRATCH”Name",DO bzw. \ 
SCRATCH”Name",D1) | 
Datei umbenennen: 


LOAD”Name",8 


SAVE”Name”,8 


OPEN 1,8,15,’S:Name” 


OPEN 15,8,15: OPEN 15,8,15: 
PRINT15/’RO:Neu=0:Alt” PRINT15/’R:Neu= Alt” 
bzw. 


. OPEN 15,8,15:PRINT15’R1:Neu=1:Alt” | 
| (RENAME D1, "Alt’TO”Neu” bzw. | 
RENAME DO/AIt"TO”Neu”) { 


Tabelle 4. Vergleich der Befehle 
für die Laufwerke 4040 und 1541 
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xen Klängen und Geräuschen meist am einfachsten, den Ton 
selbst neu zu gestalten. Wenn man den Ton beim Übertragen 
auf den C 64 direkt übernehmen will, ist das Umschreiben 
nicht schwierig. Bei den CBMs gibt es drei Tonadressen, wel- 
che wie üblich durch PEEK und PÖKE angesprochen werden: 
59464, 59466 und 59467. Der Tongenerator wird dort ein- 
geschaltet durch POKE 59466,16:POKE 59467,20: POKE 
59464,0. Nun kann man die Tonhöhe einfach festsetzen, in- 
dem man eine Zahl zwischen O und 255 in die Adresse 59646 
schreibt (durch POKE 59464,X, wobei X eine Zahl zwischen 
O und 255 ist). Dabei ist 255 ein relativ tiefer Ton und O ein 
sehr hoher Ton (Ultraschall, daher unhörbar und mit »Ton aus- 
geschaltet« zu vergleichen). Die Tonhöhe kann man für den 
C 64 als High-Byte übernehmen, jedoch bedeutet dort O ei- 
nen sehr tiefen Ton und 255 einen sehr hohen, also genau um- 
gekehrt. Daher muß man wie folgt vorgehen. Wenn im CBM- 
Programm steht: POKE TA, TH, wobei TA die Adresse der Ton- 
höhe 59464 und TH die Tonhöhe ist, muß es nun im C 64- 


CBM 064 Bedeutung 

; Hex Dezimal Hex Dezimal 

: 0028-0029 40-41 002B-002C 43-44 Zeiger auf Basic- 

i Anfang 

| 002A-002B 42-43 002D-002E 45-46 Zeiger auf Varia- 

i bien Anfang 

; 002C-002D 44-45 Su. Zeiger auf Ende 

| der Variablenta- 

belle 

So. 002F-0030 47-48 Zeiger auf Beginn : 

der Felder 

: 002E-002F 46-47 0031-0032 49-50 Zeiger auf Ende 

i der Felder 

' 0030-0031 48-49 0033-0034 51-52 Zeiger auf Beginn : 

i der Strings (rück- 

| 0032-0033 50-51 0037-0038 55-56 Zeiger auf Ende 

| der Strings (= 

, Speichergrenze) 

. 0036-0037 54-55 0039-003A 57-58 laufende Zeilen- 

i nummer 

: 0038-0039 56-57 003B-003C 59-60 vorhergehende 

Zeilennummer 

: 003A-0038 58-59 003D-003E 61-62 nächster Befehl 

{für CONT) 

: 003C-003D 60-61 O003F-0040 63-64 aktuelle DATA- 

; Zeile 

: 003E-003F 62-63 0041-0042 65-66 aktuelles. DATA- 

. Element 

(Adresse) 

' 0042-0043 66-67 0045-0046 69-70 aktueller Varia- 

| blenname 

| 0044-0045 68-69 0047-0048 71-72 Zeiger auf aktuel- 

| le Variable 

- 0046-0047 70-71 0049-004A 73-74  Variablenzeiger 

für FOR...NEXT 

: 0070-0087 112-135 0073-008A 115-138 diese Routine holt 

| nächstes Basic- 

; Zeichen 

| 0083-008C 136-140 OO8B-008F 139-143 Zufallszahl 
008D-008F 141-143 OO0AO-00A2 160-162 interne Uhr 
0097 151 00CB 203 gedrückte Taste 
00A7 167 00CC 204 Cursor an/aus 

(O=an,l=aus) 

ı 0006 198 00CA 202 Spaltenposition 

| des Eingabecur- 

\ sors . 

 00D8 216 00C9 201 Zeilenposition des | 

| Eingabecursors 
OOFD-0O0OFF 253-255 OOFB-OOFE 251-254 freier Platz für 

| Zeiger in Page O0 ' 
026F-0278 623-632 0277-0280 631-640 Tastaturpuffer | 


Tabelle 5. Die wichtigsten Zero-Page-Adressen | 
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> c sanc 20 


Programm heißen: POKE FH, 255 — TH. Es kommt aber dazu, 
daß der Tonumfang des C 64 etwas kleiner ist als der der 
CBMs. Daher empfiehlt es sich, den Wert für die Tonhöhe mit 
2 oder 3 zu multiplizieren, wobei darauf zu achten ist, daß der 
Bereich von O bis 255 nicht überschritten wird. Der Befehl 
muß also lauten: POKE FH, 255 —2 * TH. 


Diskettenbefehle 


Die komfortablen Diskettenbefehle des CBM 40 XX können 
nicht übernommen werden, jedoch kann man die überall mög- 
lichen Kommando-String-Befehle verwenden. Allerdings muß 
dafür für die Monofloppy 1541 (beziehungsweise 1540) die 
Laufwerksnummer gestrichen werden. Tabelle 4 stellt eine 
Vergleichsliste der beiden Laufwerke dar. 

Zum Schluß noch einige wichtige Zero-Page-Adressen zum 
Vergleich in Tabelle 5 (aus urheberrechtlichen Gründen dürfen 
die vollständigen Listen leider nicht abgedruckt werden). 


Lösung des Beispielprogramms »Kanone« für CBM: 


1 REM KANONE 

5 ZA = 33728:ZE = 33767:0P = 33748 

10 DIM A%(255) 

20 A%(26) = —1:A%(18) = 1:REM (Für CBM 30XX) 
oder 

20 A%(49) = 1:A%(50) = 1:REM (Für CBM 40XX) 
1000 REM Abfrage und Zeichen setzen, Subroutine 
1010 NP = OP + A%(PEEK(151)):;REM neue Position 
1020 IFNP >ZE OR NP< ZA THEN NP = OP: REM Zei- 
lenbegrenzung 

1030 POKE OP, 32:REM alte Position löschen 








1040 POKE NP30:REM neue Position setzen 
1050: 
1060 OP = NP 


1070 RETURN 
Und nun viel Erfolg beim Umschreiben! 
(M. und J. Heinz/rg) 


5 & Tricks 


MERGE für C 64 / VC 20 


Hier ist eine einfache MERGE-Routine zum Verbinden zwei- 
er Basic-Programme. Sie kann sowohl für die Floppy als auch 
für die Datasette (auch mit Turbo-Tape) verwendet werden. Ein- 
zige Voraussetzung: Das zweite Programm muß höhere Zei- 
lennummern haben als das erste. 





Und so wird’s gemacht: 

1. Sie laden das erste Programm. Dann geben Sie im Direkt- 
modus ein: PRINT PEEK(43), PEEK(44) Diese beide Zahlen 
schreiben Sie sich auf. 

2. Sie geben ein: POKE 43, (PEEK(45) + 256 * PEEK(46) 
- 2) AND 255 (Return) POKE 44, (PEEK(45) + 256 * 
PEEK(46) - 2) / 256 (Return) 

Laden Sie nun das zweite Programm. Danach geben Sie ein: 
POKE 43, (erste Zahl) : POKE 44, (zweite Zahl) (Return) Nun 
befinden sich beide Programme hintereinander im Speicher. 

(Michael Keukert) 


Funktionstastenbelegung 


Simons Basic bietet ja bekanntlich die Möglichkeit, die Funk- 
tionstasten mit beliebigen Zeichenketten zu belegen. Um nun 
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die Funktionstasten nicht jedesmalnach dem Einschalten neu 
belegen zumüssen, wäre es sinnvoll, die Belegung auf Floppy 
abspeichern zu können. 

Die Funktionstastenbelegung ist bei Simons Basic in dem 
von Basic nicht erreichbaren Speicherbereich $C64D bis 
$C74B (50765 bis 51019 dezimal) abgelegt. Mit dem folgen- 
den kleinen Programm wird dieser Speicherbereich als Ma- 
schinenproögramm abgespeichert: 

10 INPUT »Filename»; X$ 

20 OPEN 5, 8, 5,X$ + »PW« 

30 A = 50765:E = 51019 

40 H=1INT{A/256):L= AAND 255 
50 PRINT#5, CHR$(L); CHR$(H); 

60 FORI=ATOE 

70 PRINT#5, CHR$(PEEK(I)); 

80 NEXTI1:CLOSE5 

Mit LOAD "Name‘,8,1 kann die Funktionstastenbelegung nun 
jederzeit geladen werden, ohne ein eventuell vorhandenes Ba- 
sicprogramm zu zerstören. (Uwe Schwarz) 


Hilfe für »Turbo Tape« 


Das Programm Turbo Tape« ist ja ein Segen für alle diejeni- 
gen, die sich keine Floppy leisten können oder wollen. Es gibt 
allerdings einige Maschinenprogramme, die nach dem Ge- 
brauch von »Turbo Tape« abstürzen. 

Abhilfe: Nach dem Laden das Programm LISTen und den 
SYS-Befehl zu Anfang notieren. Nun SYS 64738 und danach 
den.notierten SYS-Befehl eingeben — und schon läuft das Pro- 
gramm. (Andreas Klofanda) 


Basicprogramme retten 


Ein durch NEW oder durch einen RESET gelöschtes Basic- 
programm kann durch Eingabe folgender Zeilen im Direktmo- 
dus wieder zurückgeholt werden: 

POKE 46, PEEK(56) - 1: POKE 45, PEEK(55) + 247 : CLR 
(Return) 

POKE PEEK(44) * 256 + PEEK(43) + 1, PEEK(44) (Return) 
63999 (Return) 

FOR | = PEEK(44) * 256 + PEEK(43) TO PEEK(46) * 256 
+ PEEK(45) : IF PEEK(I) OR PEEK(l + 1) OR PEEK(I + 2) 
THEN NEXT (Return) 

POKE 45, (1 + 3) AND 255 : POKE 46, (1 + 3) / 256: CLR 
(Return) 

Diese »Rettungsmaßnahme« funktioniert sowohl beim VC 
20 wie auch beim © 64. {Ralf Berle) 


Cursor steuern 


Das Betriebssystem des C 64 enthält eine Routine, die man 
benutzen kann, um den Cursor an eine beliebige Stelle zu set- 
zen. Geben Sie doch mal folgendes ein: 

POKE 214, (Zeile) : POKE 211, (Spalte) : SYS 58640 : PRINT 
"TEXT” (Michael Keukert) 


Und noch ein Tip 


Der FORMULAR TOO COMPLEX - Error ist sehr unange- 
nehm, da sich das Programm danach oft nicht mehr listen läßt. 
Nach Eingabe von POKE 24,0 verhält sich der Computer aber 
wieder normal. (Roger Limberg) 
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Listing des 
Monats: Castle 


OT.u zu der Beschreibung von 
Seite 66 


Erklärung der Programmzeilen für Castle of Doom: 

Zur Erläuterung des Programms sind hier die verschiede- 
nen Abschnitte des Programms aufgeführt: 

1 Sprung zur Befehlsausführung 


5—95 DATAs einlesen, Erklärung? 

100—160 Version auswählen 

165—176 Zauberwörter bestimmen 

179-740 Bilder zeichnen 

748—860 Kommando auswerten 

870—940 Bewegen 

950—980 Sprung zur Befehlsausführung berechnen 
und ausführen 

999-5382 Befehlsausführung 

6500--6528 Befehl »sage« 

7000—7065 Besitz + Gegenstände anzeigen 

7100—7125 Befehl »nimm« 

7200-7415 Befehl »wirf« 

7500—7560 Erklärung 

7600-7720 verloren 

7800-7880 gewonnen 

8000-8110 DATAs 


Da die Kommiaandoauswertung recht ungewöhnlich aus- 
geführt wird, folgt hier noch eine Beschreibung der betref- 
fenden Programmzeilen: 


755 Kommandoeingabe 
760—785 Zerlegen in Verb/Hauptwort 
795—810 Vergleich mit der Liste aller bekannten 
Wörter 
Zuordnung: X = Nummer des Verbs 
(1-14) 
Y = Nummer des Haupt- 
worts (1—21) 
830—845 Untersuchen, ob eine sinnvolle Kombina- 
tion von Verb und Hauptwort vorliegt 
960-980 Aus X und Y wird die Zeilennummer be- 


rechnet, in der die Antwort auf das einge- 
gebene Kommando steht. Die berechnete 
Zeilennummer wird in ihre Ziffern zerlegt, 
und diese werden in den Programmspei- 
cher hinter das GOTO in Zeile 1 gePO- 
KEd. Anschließend wird ein GOTO 1 aus- 
geführt. 


Variablen-Definition zum Listing des Monats: 


Zum Abschluß hier noch die 


wichtigsten Variablen: 

V$(1...14) Liste Verben 

H$(1...21) Liste Hauptwörter 
“_ RI$(1..19) mögliche Richtun- 

gen 

Z1$(1..19) Nachbarfelder 


G$(1...12) Liste Gegenstände 
tt. 12) Ort der Gegenstände 


Position 
v Version 
21$,22$ Zauberwörter 
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ZA = 0,1,2Zauberwort gesagt? 


K$ Kommando 
v$ Verb 
H$ Hauptwort 


KB$(1...9) mögliche Kombina- 
tionen 


MO = 1 Monster besiegt 
GE = 1 Geist besiegt 
MR = 1 Monster anwesend 
GSs= 1 Geist anwesend 
ZB= 1 Zauberer anwesend 
GG Anzahl Gegenstände 





60TOS 
soTo! tt! 

REM 

REM ZEILEN O UND i NICHT AENDERN !!!! 
REM 

DIMV$(14) „H$(21) „‚RIS(19) „ZIS(19) „6$(12 
),6(12) 

& L$- . 3 [3 

7 CL$=") u 

8 EF$=" 


NAuUNM GO 


10 POKEST280,14:POKES3281 „14: POKESS272,2 

3: P=15:00=54272:V1=53248 

15 POKEVI+21,0:PRINT"L"SPC (12) "gone 

LT {TU REM CASTLE OF DOOM 

20 PRINT"EBIa IN 4DVENTURE VON 

SBECKER" 

25 PRINTSPC (11) "WR |ITTE WARTEN *" 

30 FORI=1T014:READVF(I) 

35 IFI<1OTHENREADKBS$ (I) 

40 NEXT 

45 FORI=1T021:READH$CI):NEXT 

50 FORI=1T019:READRIS(I) ,ZISCI):NEXT 

55 FORI=1T012:6$(I}=H$ (I) :READG (II: NEXT 

&0 FORI=1T04:READZXF (I) ,ZY$S{I):NEXT 

65 FORI=13T015 

70 FORJ=0T062: READK: POKEA4*1+J,K:NEXT:NE 
xXT 

85 PRINT"O 
cn" 

90 GETAF: IFA$="J"THEN7SOO 

95 IFAS<>"N"THENIO 

100 PRINT"KI"SPCE(IOV "HH IL DT {IT 
105 PRINT"EB& IEI DIESEM 4DVENTURE KOENN 

EN #IE ZWI-" 

110 PRINT"® SCHEN DREI xERSIONEN WAEHLEN 
s":PRINT'"E üOLLEN #IE =" 

115 PRINT" 1 - 7INE VERZAUBERTE "RINZE 

SSIN":PRINTSPC (6) "BRETTEN" 

120 PRINT"M 2 - "INEN BOESEN +AUBERER B 

ESIEGEN" 

125 PRINT"B 3 - "INEN 4CHATZ SUCHEN" 
130 PRINT" |ITTE GEBEN #IE DIE- ENTSPRE 

CHENDE" 

135 PRINT"E -ENNZIFFER EIN." 

140 POKE198,0:WAIT178,1 

145 GETI$: IFASC(I$) <490RASC (IF) >5S1THEN14 

0 

150 VEVAL IF): IFV<>ZTHEN16O 

155 RI$t13)="W-0": ZIH(13)="121A4":RIE (9) = 

"W-O-R": ZI$ (9) ="OBLO1B" 
157 RI$ (8) ="N-5-0":ZI$ (B)= 

160 IFV=1THENG (7)=1 

165 FORI=1T04: J(I)=1+4#RND(TII:NEXT 

170 Zi$=ZX$ (It 13) +ZY#(J(2)) 

175 Z2S=IXECJ CHI I +ZYECIA)) 

176 IFZ1$=Z2#THEN165 

177 TI$="000000" 

179 REM ###* BILDER ZEICHNEN x#** 

180 PRINT"Ü": : POKESS272,21: POKEVI+21,0: 

POKEVI+23,0:POKEVI+29,0 

185 FORI=1T020: PRINTSPC (BICLE: NEXT 

+90 FoRI=i824T018653: POKEI ‚99: FOKEI+08, 08 

NEXT 

195 IFP>L1THENA415 

197 POKES3280 ,5: POKES3281,5 

200 PRINT"8"3 . FORI=1T04:PRINTSPC {B+I) "\" 





I|.cEIS 


»DECHTEN ®#IE EINE "REKLAERUNG 


"051209" 
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SPC (22-2x*I[)".":NEXT 

205 PRINTSPCO1SV Lt 

210 FORI=1T010:PRINTSPC 12)" PSPEC1A) "| " 

:NEXT " | 

215 PRINTSPE (13 7 — 

220 FORI= 1705: PRINTSPC (15-13 " "SPC (12+2% 

II"\"2NEXT 

225 FORI=I1TDOLEN(RI$(PY)STEP2: A$=MID$ (RI$ 

(P} ,I,1} 

230 IFAF="N"THEN2SO 

235 IFAF="W"THEN2&0 

240 IFA$="0"THEN2645 

245 NEXT:GOTO270 

250 FORJ=1462T015525TEP40: FORK=OTO3Z: POKE. 

J+K, 160: POKEJ+K+GQ,0:NEXT:NEXT 

255 POKE1402,254:POKE1405 , 252: 6010245 

2&0 FORJ=1552T01752STEFP40: POKEJ „180: POKE 

BQ+J,0:NEXT: POKE1752,105:60T0245 

265 FORJ=1575T01775STEP40: POKEJ „160: POKE 

RO+J ,O: NEXT: POKE1775, 95: G60T0245 

270 ONPGOTO275,740,300,315, 740,325, 345,7 

40,3535,3759,395 

275 ODNVGOTO740 ,280,285 

280 POKE2040, 15: POKEVI+39 ,0: POKEVI,150:P 

OKEVI+1,140: POKEVI+297,,1:POKEVI+23,1 

282 POKEVI+21, 1:ZB=1: 6010740 

285 PRINT "EERBEEDBIKEBN" SPC (13) "____":PRIN 

TSPE (127 "7 ı" 

2909 PRINTSPC (11)3",/ 7 L"z:PRINTSPCt11I)"M 
| ":PRINTSPC (11) "I SE] ,* 

295 PRINTSPC (11) "L___ 1 SCHATZ":FORI=1T02 

000: NEXT:GOTO7830 

300 IFLEFTF(RI$ (5) „1)="N"THEN?740 

305 FORJ=1402T01542STEP40: FORK=OTOS 

310 POKEJ+K, 160: POKEJ+K+RQ „O6: NEXT: NEXT: 

PRINTSPC (16) "ILITMSPIEGEL": GOTO740 

315 PRINT"ERR"SPC(1F) "GG mw": PRINTSPC 

11a)" W":PRINTSPC(1SI"T 1" 

320 FORI=1T010:PRINTSPC (15) "T1":NEXT:GOT 

0740 

325 PRINT" BER" SPC (13) " 

INTSPC (IF YL—_" 

330 PRINTSPE (123"/ 1 "zPRINTSPC (11)" 7 

£A "sPRINTSPC (10)”" Fl 

335 PRINTSPC (9 "777,7": PRINTSPC (9) "] 
K"=PRINTSPCE (PN "L.—— | SCHLAFZIMMER" 

340 G0OT0740 

345 IFGE=1THEN740. 

350 POKE2040,13:POKEVI+S59,1:POKEVI,150:P 

OKEVI+1,150: POKEVI+23,1:POKEVI+29,1 

351 POKEVI+21,1: IFGC(I2)<>OTHENFORI=1T020 

00:NEXT:G60T07430 

352 65=1:60T0740 

355 PRINT'EEK"SPC (11) "BURGHOF / BRUNNEN" 

:PRINTSPFC (ID "TINNITUS ITLTLT 

360 FRINTSPC (17) " ERRREREIIK 

PCEt1EI "8 Bu 

365 PRINTSPC (15) 7] "en PP PRINTSPC (16) " 

l !=PRINTSPC (16) "7" 

370 GOTO740 

375 POKE214,14:PRINT 

380 IFFA=1THENPRINTSPC (CF "TE 

TSPCE (24) "3 Y":50T0740 

385 PRINTSPC (23) ": PRINTSPC (23) " 

390 PRINTSPC (16) "QUADRAT 

25)" ":560T0740 

EISEN" SP (253 " —____ ":PRINT 
S"=PRINTSPC (22)" I 7 T7]" 











":PR 





SEHE RRURERER 








W":PRIN 


\"PRINTSPE 











SPECZZI" MP 
400 PRINTSPC (15) "L_ 1-1 MP=PRINTSPC 
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1159" ııı rm 

405 PRINTSPCE (1A "Er _L"SPRINT 
SPELEIUFSI y 

410 PRINTSPEC (21) "SCHRANK": GOTO740 

415 IFP>LATHEN445 

417 POKES3280 ,8: POKES3281,8 

420 PRINT"B"3 :FORI=1T05:PRINTSPC (8) "B"L$ 
NEXT 

425 FORI=55504T055514STEP2:POKEI,7:NEXT: 
FOR1=55517T0555275STEP2: POKEI,7:NEXT 

430 FORI=1TO11:PRINT"B"SPC (BIL$:NEXT: FOR 
I=1T03: PRINT"R"SPC(B)L$: NEXT 

435 IFLEFTE(RI$(P) „LI<C>"N"THEN?7AO 

440 POKE214,11:PRINT"g":FORI=1T05: PRINTS 
PCIE" "NEXT 

442 GOTO74O 

445 POKESS3S280,, 14: POKES3Z81 ,14:DNP-14G0T0 





555,450,485,500,540 

450 PRINT" ERERBDRERIN" SPC (20) " „":PRINTSPC (1 
8) "2 „ 

460 PRINTSPC(1TI"RAN / ""2PRINTSPC (16) " 
m, „. 

465 PRINTSPC(1S)" U ( = .PRINTSPC (1 
4) je De an 

470 PRINTSPE (13) "Ir \ zu 


475 FORI=1T07:PRINTSPC (SI) LF: NEXT 

48060 PRINTSPE (9) "TOT IITEBERG" 

481 IFLEN(RIFt1&6)3)=5THENPRINTSPE (N "ASST 
EILER WEG NACH OBEN" 

482 GOTO740 

485 PRINT"B"SPC (9) "RERBISTEILER BERGHANG, 
"=PRINTSPC (9) "BIHOEHLE" 

490 PRINTSPC (21) "Elle" = PRINTSPC(19)" 48 

1) : n 

495 FORI=1T04:PRINTSPCE (1 "3 
T:60T0740 

500 PRINT"B"; :FORI=1T019:PRINTSPC (BILF:N 
EXT 

505 PRINT"B"SPC(9) "BEIM BRUNNEN „.." 

510 IFV<>3THEN740 

515 IFMO=1THENPRINT"®" : SOTOS3O 

520 POKE2040,14:POKEVI+39 ,153:POKEVI,200: 
POKEVI+1,130: POKEVI+23,1:POKEVI+29,1 \ 
525 PRINTSPC (9) "IIEMONSTER":POKEVI+21,1:M 
R=1 

530 PRINTSPE (9) "INTLERKRDER 
RINTSPC (16) " "NEXT 

555 IFRIF(18?="H"THENPOKE1601,114 

537 GOTO740 

540 FRINT"B"; :FORI=1T020: PRINTSPC (SI L$:N 
EXT 
545 PRINT"B"SPC(PH "SEIN DER HOEHLE „.." 
550 PRINTSPC (P)"WRSTOCKDUNKEL HIER „.. "s 
GOTO740 

355 PRINTER" SPC (13) 7————emmme  EPRI 
NTSPCE (IS "I BASAR f" 


”"=NEX 





"2FORI=1T07:P 


‚560 PRINTSPC (13 "Le" 


565 IFXX=1THENASS 

570 PRINTSPC (9) "BEIN BEFREUNDETER" 
575 PRINTSPC (9) "BHAENDLER IST BEREIT,":P 
RINTSPC (9) "WIHNEN ZWEI DER FOLGEN-" 

580 PRINTSP& (9) "BDEN GEGENSTAENDE ZU":PR 
INTSPC (9) "BUEBERLASSEN =" 

585 PRINTSPC (9) "Mi GLASKUGEL NER KAEFI 
G" 

3970 PRINTSPC (9) "gm AMULETT Wan BUCH" 
5375 PRINT'ERBIM BITTE. ENTSPRECHENDE NUMM 
ERN EINGEBEN" 
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600 GETI£: IFI$=""THENAOO 

805 IFASC(IFITAFORASCTIFE) >SZTHENGOO 

&10 ONVAL (IF) GOSUBA3S,640,,645,650 

615 GETJI$: IFIS=""ORIF=IFTHENGIS 

&20 IFASE (IF) <ZAFORASC (JS) >SPTHENG1S 

625 ONVAL (J$) GOSUBAFS,640,645,450 

630 XX=1:66=66+2:605UB7000: GOTO55S5 

635 POKE1633,49:6(1}=0:RETURN 

&40 POKE1645,50:5 (2)=0: RETURN 

645 POKE1713,51:5(P)=0: RETURN 

650 POKE1725,52:6 (4)=0:RETURN 

655 YY=0: FORI=1T04: IFG (I}=SOTHENYY=YY+1 
&57 NEXT: IFYY<X>ZTHEN?71O 

660 PRINT" BERKER" SPC (9) "WOLLEN SIE DIE 
GEGEN-" 

665: PRINTSPE(P) "WSTAENDE, DIE SIE HIER": 
PRINTSPC (9) "BERHALTEN HABEN, NOCH " 
&70 PRINTSPC (9) "BEINMAL UMTAUSCHEN ?":PR 
INTSPC (I) "N tJ/w)" 

675 PRINT:PRINTSPC (8) CL$:PRINT:PRINTSPC ( 
BSICLF:GOSUBBAC 

&80 GETIS$: IFI="N"THEN?I1O 

685 IFIS$<>"J"THENABO 

&90 FORI=1T04:6(1)=20:NEXT: 6GG=-66-2 














675 PRINT "ERRERKBN" : FORI=S1T09:PRINTSPE (BI CL 
&:NEXT 

700 PRINT "ERHEBEN" SPC (12) "WAEHLEN SIE !": 
PRINT”B 

705 GOTOS85 

710 PRINT" Eike" : FORI=1TO9: PRINTSPC (BIC 
LF:NEXT 

715 PRINT"BERE" : FORI=1T05:PRINTSPC (15) "1 


"SPEEILI" P’ENEXT 

720 FRINTSPC (13) „PP PRINTSP 
tip TI MIDTIPO 

725 PRINTSPCE (CS TIER I IB I I en 11" 
730 PRINTSPC(I3SI "I L__I L_I LI PSPRINTSPC 
ze Je 

740 POKE?14,18:PRINT:PRINTSPE (9) "BRICHTU 
NGEN : BW"RIF(PI:GOTO7SO 

748 REM ##%** KOMMANDDAUSWERTUNG #*## 

74379 FORI=1T02500: NEXT 

750 ZA=0: GOSUB7000 

755 GOSUBBA0: INPUT" KOMMANDO :";K$ 

760 IFLEFTF(KF,13=" "THENKF=SRIGHTF(KF,LE 
N{K#)-13: 6070740 

765 IFLEN(KF}I=1THENGTO 

770 FORI=1TDLEN (K$) : IFMIDF(K#,1,1)=" "TH 
EN780 

772 NEXT 

775 GUOSUBB&O: PRINT" 
EINSABE !":60T0749 


UNKORREKTE 


780 VE=LEFTE(KF,I-1}):H$=RIGHTF {K$ „LEN (K$ 


3-D) 

785 IFLEFTF(CH$,1)=" "THENH$=RIGHTS CH$&,LE 
NCHF)-1):650T0785 

790 IFV$="SAGE"THENGSOO 

795 FORI=1T014: IFLEFTF (V$ I} „LEN (VE) ) =V$ 
THENX=I: GOTOSOS 

800 NEXT: NVE=VE:G0T0815 

805 FORI=1T021: IFLEFTF CHF UI) „LENCHF) )=H$ 
THENY=I: GOTO825 

810 NEXT:NVE=HF 

815 SOSUBBSO:PRINT"O TUT MIR LEID, ABER 

ICH VERSTEHE" 

820 PRINT" ""NV#"" NICHT. ":60T0749 

825 IFX>FTHENX=X-5 

830 FDRI=1TOLEN(KBECX))S IFMIDSCKBEICX) „I, 
1)=CHR$ (Y+54) THENISO 

855 NEXT: GOSUBSAO 


108 har 


C 64 


840 PRINT"O TUT MIR LEID, ABER ICH VERST 
EHE IHREN" 
845 PRINT"® BEFEHL NICHT. ":60TD749 





"Bau PUKEZI4 ,ZU:PRINT:FORTSITOSTPRINTEFF: 


NEXT: PRINT "LI" : RETURN 

869 REM ***%* BEWEGEN ##*##* 

870 FORI=1T06: IFK$=MID$ ("NSWOHR" ,I,1) THE 
NB80 

875 NEXT:601T0775 

880 IFGS=10RZB=10ORMR=1THEN7600 

882 FORI=1TOLEN(RI$ (P) )STEP2 

885 IFMID$(RI$(P) ,I,1)=K$THEN9OO 

890 NEXT: G0SUBB&O 

895 PRINT" IN DIESE RICHTUNG GEHT ES N 
ICHT":60T0749 

900 SC=0: ZI=VAL(MIDS(ZIS(P) ,I,2)) 

905 IFP=16ANDZI=13THENF25 
910 IFP=1SANDZI=9ANDG (8) =OANDV=1THEN7&A0 
915 IFZI=O0THEN7680 

920 P=Z1:60T0180 

925 IFG(B) =OTHENONVGOTOI3SO, 7650, 7670 
930 GOSUBB&LO:PRINT"O) HINTER IHNEN LOEST. 
SICH EINE STEIN-" 

9735 PRINT" LAWINE, DIE DEN WEG VERSCHUE 
TTET. ":RIS(16)="W-0": ZIS (16) ="1517" 

940 FORI=1T02500: NEXT:P=Z1I:G0TD180 

949 REM ** SPRUNG ZUR BEF.AUSFUEHRUNG ** 
950 IFX=4ANDY<13THEN7100 

955 IFX=5THEN7200 

960 ZN=1000+(X-1)#*500+(Y-1)*20: ZN$=STR$ ( 
ZN) 

965 FORI=1T04:NZ=VAL (MID$S(ZNE.I+1,1)) 
970 POKE(2040+I) , (NZ+48) 

975 NEXT 

980 GOSUBBAO: GOTOL 

998 REM *** BEFEHLSAUSFUEHRUNG «=r 

999 PRINT" OK !":60T0749 

1000 IFY=10RY=70RY=160RY=190RY=2OTHENE$= 
"E "60101002 

1001 E$=" " 

1002 PRINT" HIER IST KEIN"E$H&(Y):GOT074 
9 

1020 IFG(Y)=ODRG (Y) =PTHEN997 

1022 G0T01000 

1060 GOTO1020 

1180 IFG(10)<>OANDG (10) <>PTHEN1000 

1182 IFV<>ZTHENPRINT" DER "H$&(10)" LAESS 
T SICH NICHT DEFFNEN": 6010749 

1184 IFG(M<>21THEN999 

1185 PRINT" IM "H$(10)" BEFINDET SICH EI 
N "HS(9" 119:6(9)=P:60T0749 

1300 IFP=1BANDRI$ (18) ="H"ANDV=STHEN130& 
1302 IFP=10ORP>13THEN1000 

1304 PRINT" HIER IST KEINE GESCHLOSSENE 
TUER" :60T0749 

1306 IFGt11)<>OTHENPRINT" DIE TUER IST V 
ERSCHLOSSEN !":G607T0749 

1308 RI$S{18)="0-H": ZI$ (18) ="1909":RIE(19 
)="S-W":ZI$(19)="1718":G0T0180 

1340 IFP<>11THENLOOO 

1342 IFV=30RG (10) <>21THEN999 

1344 IFG(11)<>OTHENPRINT" DER SCHRANK IS 
T VERSCHLOSSEN" : 6010749 

1346 PRINT"O IM SCHRANK BEFINDET SICH" 
1348 PRINT"S EIN GOLDENER BALL":6(10)= 
11:6010749 

1400 PRINT" DAS IST UNMOESLICH. !":601074 
3 . 

1580 IFG(5)<>PTHEN1000 

1582 IFP=18THENPRINT" ES IST ZU DUNKEL H 
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IER !":6070749 

1584 IFGt2)=6THEN1SF7C 

1586 PRINT"D SIE BRAUCHEN EINEN BEHAELTE 
rR" 

1588 PRINT"B UM DEN FROSCH ZU FANGEN !": 


GUOTU747 

1590 IFGGS=STHENPRINT" SIE TRAGEN SCHON 5 
GEBENSTAENDE !":60T0749 

1592 615) =0:66=66+1: PRINT" OK !":60T0749 
1740 IFMR=1LTHEN7640 

1742 IFV=3ANDP=9ANDMO=OTHENPRINT" VON HI 
ER AUS GEHT DAS NICHT !":6070749 

1744 GOTO1000 

1780 IFGS<>1THEN1O0O 

1782 PRINT" DER GEIST MAG DAS NICHT t!" 
:FORI=1T02000: NEXT: SOTO7430 

2080 IFGt5)=PTHENPRINT" DER FROSCH LAESS 
T SICH NICHT KUESSEN":60T0749 

2082 IFG{S)<>OTHENLOOO 

2084 IFV< >LORP<S PATHEN?IF 

2086 PRINT" ES KNALLT UND STINKT...":FOR 
I=1 T02000: NEXT: 60T07800 

2240 IFMR<Z>ITHENLOOO 

2242 PRINT"D) DAS MONSTER SCHLAEGT WILD U 
M SICH" 

2244 PRINT"E UND SCHLEUDERT SIE AUS DEM 
BRUNNEN" : MR=0 

2245 FORI=1T03000: NEXT: P=9: 60TO180 

2260 IFZB<>1THEN10O0O 

2262 FORI=0T015:POKES3F281 ,1:POKES3280, 1: 
FORJ=1T0100: NEXT: NEXT: ZB=0 

2264 POKESF3280 ,5: POKES3281 ,3: ZK=ZK+1: IFZ 
K=3THEN?&20 

2266 P=2+1INT(13#RND(TI)Y:GOTO180 

2280 IFGST>1THENIOOO 

2282 IFTI$S<"001000"THEN7630 

2284 GE=1:65=0: FORI=832T0892STEP3: POKEI, 

©: POKEI+1 ,0: FDKEI+2,0:NEXT 

2284 PRINT"D DER GEIST HAT IHREN MUNDGE 
RUCH"=PRINT"EB NICHT VERTRAGEN !" 

2288 GOTO749 

2400 IFP<>1ODRFA=1THENL000 

2402 IFV<>1THENIFF 

2404 IFV=1THENFA=1:RIF(10)="N-W-R"2 ZI (1 
0)="070919" 
2406 RIS(I9)="S-H"2ZIE(1N="1710":GOT018 
OÖ 

2820 IFP<>3ORLEN {RIF (3) ) =5STHEN1OOO 

2822 FRINT" DAS GEHT NICHT !":60T0749 
2840 IFF<{>11THENLOOO 

2842 PRINT" DER SCHRANK IST ZU SCHWER !" 
5010749 

2900 IFP< >100RFA=1THEN1000 

2902 60T02822 

3560 IFGS=1THEN7&30 

3562 IFG(A4)<>0THENPRINT" ICH HABE DAS BU 
CH NICHT !":60T0749 

3564 IFV=3THEN3S68 

3556 PRINT" ZAUBERWORT : "Z13:60T0749 
3568 PRINT"OD ZAUBERWOERTER : "Z1I#:PRINT" 
"SPC (17)Z2#:6070749 

3650 IFG(PX>OTHENPRINT" ICH HABE KEINEN 
ZETTEL":GDOT07497 

3662 PRINT" ZAUBERWORT: "Z2#:FORI=1T0250 
O:NEXT 

36564 PRINT"D] DER ZETTEL VERSCHWINDET !!ı 
":66=56-1:619)7=21:65070749 

3540 IFP{>1ZDORSC=OTHENLOOO 

3862 PRINT"O TUT MIR LEID, ABER ES SCHE 
INT" 
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3864 PRINT"S EINE FREMDE SPRACHE ZU SEI 
N": G0T0749 

4300 IFP<120R (V=3ANDP=18) THENPRINT" OK.. 
„NICHTS PASSIERT !":6010749 

4302 GOTO1000 

4320 IFP<>3ORLEN (RI$ (3) )=STHEN1000 

4322 PRINT"D HINTER DEM "H$(17) 

4524 PRINT" SCHEINT EIN HUHLKAUM ZU. SEI 
N !":6070749 

4380 IFV=ZANDP=12ANDLEN (RI$ (12) )=3THEN43 
88 

4382 IFP=1FANDG (8) =21THEN4392 

4384 IFP>14ANDP< 18THEN1000 

4386 PRINT" OK...NICHTS BESONDERES FESTZ 
USTELLEN !":6010749 

4388 POKE214,11:PRINT=PRINTSPC (18) "Eid -}/ 
0": SDSUBBAO 


4390 PRINT" EINE SCHRIFT ERSCHEINT. .."z 


C=1:60T0749 


. 4392 G6{8)=19:PRINT" AN DER WAND HAENGT E 


IN SCHWERT !":60T0749 

4400 IFP=10ANDFA=OTHENPRINT" KLINGT HOHL 
„..":60T0749 

4402 GOTD1000 

4580 IFG(SY<>OANDG (5}7< >PTHEN1O0O 

4582 PRINT" DER FROSCH ENTWISCHT IHNEN! 


4584 IFG(5)<>1BORV<>ITHENA45BB 

4586 GOT0747 

4588 IFG(57=0THENGG=6GG-1 

4590 5615) =1+INT(19#RND(1)) :60T0749 

4740 IFMR=OTHEN1000 

4742 PRINT" GUTE IDEE, ABER DAS GEHT NIC 
HT !":60T0749 

4780 IFZB=OTHENI1O0O 

4762 GOSUB4770: IFY=00ORG (Y}< >OTHEN749 
4764 IFY=BANDZA=2THEN7820 

4766 GOTO7&420 

4770 INPUT" WOMIT ";WM$ 

4771 FORI=1TOLEN (WME) = IFMIDFCWM$,I,1)=" 
"THEN4773 

4772 NEXT:GOT04774 

4773 WM$=RIGHT$ (WM LEN (WMF)— I) 

4774 FORY=1T012: IFWM$=LEFTS (HE (Y) „LENCWM 
£) } THENA477& 

4775 NEXT: GOSUBSA0: PRINT" ICH VERSTEHE 
"WM&"“ NICHT !":Y=0:RETURN 

4776 IFGiVI<S>OTHENGOSUBBSAO: PRINT" ICH HA 
BE DIESEN GEGENSTAND NICHT !" 

4777 RETURN 

4780 IFGS=O0THENLOOO 

4782 GOSUB4770: IFY=OORGS (YI< >OTHEN749 
4784 GOSUBB&O: ONVGOTD4785,4770,4794 

4785 IFGtB)=OTHENPRINT" SIE SIND GESTOLP 
ERT, UND... ":FORI=1T02000: NEXT: 50TO7&30 
478& IFZA=1ANDY=7THEN4798 

4785 G0T07630 

4790 IFZA=1ANDY=3THENA47F8 

4792 GOTD7430 

4794 IFY=1THENPRINT" DER GEIST IST TOT, 
ABER... ":FORI=1T02000: NEXT 

4796 GOTO7530 

4798 POKEVI+21,0:65=0:6E=1:PRINT" OK...D 
ER GEIST IST TOT !":6G0T0749 

S000 IFG(1)<>OANDG (1}<>PTHENLOOO 

5002 PRINT" WOZU SOLLTE DAS GUT SEIN ?": 
SOT0747 

5020 IFG(2)<>OANDG (2) < >PTHEN1LOOO 
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5022 PRINT"O SO GEHT MAN NICHT MIT FREMD 
EM " 

5024 PRINT" EIGENTUM UM !":6010749 

5300 IFP=18ANDRI$ (18) ="H"ANDV=3STHENS306 
5302 IFP=10RP>1STHENL000 

5304 PRINT"WIESO, HIER IST KEINE VERSCHL 
0SSENE TUER":60T0749 

5306 PRINT" DIE TUER IST ZU STABIL...":G 
0T0749 

5320 GOSUBA770: IFY=OORG (YI<>OTHEN749 
5322 IF (V=1ANDY=8) OR(V=SANDZA=Z2ANDY=8) TH 
EN7247 

5324. GOSUBB&0: PRINT" DAS GEHT NICHT !":G 
070749 

5340 IFP<>11THEN1000 

5342 PRINT"Q) DER SCHRANK LAESST SICH NIC 
HT Li} 

5344 PRINT"® MIT GEWALT OEFFNEN !":60107 
49 

5380 IFP>14ANDP<1BTHEN1000 

5382. PRINT"SIE KOENNEN DIE WAND NICHT 
RSTOEREN !":6010749 

6499 REM *** BEFEHL 'SAGE’ ##+# 

6500 GOSUBB40: IFH$=Z1$THENZA=1:G0T06506 
6502 IFH$=Z2$THENZA=2: GOTD6506 

6504 GOTO7&90 

6506 ONVEDT06508,6512,6520 

6508 IFZA=1ANDS (7) =OANDGS=1ANDG (4) =0THEN 
PRINT" DIE KEULE VIBRIERT...":60T04528 
6510 GOT06524 

6512 IFZA=1ANDP=12ANDSC=1THENRI$ (12)="N- 
W-0":Z1$(12)="080013":60T0415 

6514 IFZA=1ANDG (3) =OANDGS=1THENPOKEVI+39 
„0: 6010755 

6516 IFZA=ZANDG (8) =OANDZB=1ANDG (4) =0THEN 
PRINT" DAS SCHWERT LEUCHTET... ":60T04528 
6518 GOT06526 

6520 IFZA=1ANDG (3) =0ANDMO=OANDP=9THENPRI 
NT" DAS AMULETT LEUCHTET... ":60T06528 
6522 IFZA<>2ORG (4) < >OORP< >3ORRIS (ZI <D"W- 


DO"THENAS2& 

6524 PRINT" DER SPIEGEL LEUCHTET...":60T 
06528 

6526 PRINT" OK...ES TUT SICH NICHTS !":6G 
070749 


64528 FORI=1ITO2000: NEXT: GOTO755 

6979 REM #* BESITZ/GEGENSTD ANZEIGEN #* 

7000 PRINT"B";:FORI=1T020: PRINT" 

"=NEXT 

7002 PRINT"ESBSIE":PRINT"WBESITZEN":SP=O 

7005 FORI=1T012: IFG{I)=OTHENGDSUB7O5S0 

7010 NEXT 

7020 PRINT"E" 3; :FORI=1T020: PRINTSPC (32) " 
"NEXT 

7022 J=0:PRINT'EEE"SPC (52) "ES GIBT":PRIN 

TSPE(3S2I "HIER :":5P=32 

70625 FORI=1T012: IFG{I)=PTHENSDSUB70S0: J= 

J+1: IFJ=&THENRETURN 

7030 NEXT:RETURN 

7050 IFI=1THENPRINTSPC (SP} "W5ELAS-": PRINT 

SPC SP} "KUGEL" RETURN 

7055 IFI=S11THENPRINTSPE (SP) "WSCHLUES":PR 

INTSPC (SP) "SEL": RETURN 

7650 IFI=1Z2THENPRINTSPC {SPY "BKETTEN-":PR 

INTSPC (SP} "HEMD" RETURN 

7065 FRINTSPC (SPY "W"G$ CI) RETURN 

70997 REM ##* BEFEHL ’NIMM’ *%##+ 

7100 IFG(YI=PTHEN?71IO 

7105 GSOSUBBSO: PRINT" DIESER GEGENSTAND 

IST NICHT HIER !":601T0749 

7110 IFGG<STHEN7120 , 
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SIE HABEN BEREITS 


7115 SOSUBB&0:PRINT" 

5 GEGENSTAENDE !":607T0749 

7120 IFY=5STHENGOSUBB&AO: PRINT" 

SCH HUEPFT IHNEN DAVON !":60T0749 

7125 G(Y}=0:66=66+1:605UBB40: PRINT" Ok 
IL FORI=1T01000: NEXT:60TO750 

7197 REM *** BEFEHL "WIRF’ *#* 

7200 IFG(YI<>OTHENGOSUBBAO:PRINT" ICH HA 

BE DIESEN GESENSTAND NICHT !":60T0749 

7205 GOSUBB&A0: INPUT" WOHIN ":WHE 

7210 FORI=1TOLEN {WH$) : IFMID$ (WH$, 1,1) =" 

"THEN7220 

1215 NEXT:GUTU7725° 

7220 WH$=RIGHTF (WH$ LEN (WH$) -I) 

7225 IFWH$="BODEN" ORWHS="WEG"ORWHS="EGAL 

"ORWHS= "WAND" THEN7235 

7230 ONVGOTO7240,7270,7330 

7235 GDOSURBAO:PRINT" OK !"rG6(YI=P:66=66 

-1:6010749 

7240 IFY< >BORWH$< >"SPIEGEL"ORP< >3SORLEN {R 

I$ (3) )=STHEN7255 

7245 G(Y)=3:66=66-1 

7247 RI$(3) ="N-W-D": ZI$ (3) ="010204":60SU 

BS&0 

7250 PRINT" DER SPIEGEL ZERBRICHT !":FO 

RI=1T02000: NEXT: G0T0180 

7255 IFY< >100RWHFZ >" BRUNNEN" ORP< >IFORG (5) 

<>1BTHEN?3BO 

7260 GOSUBBA0:PRINT"O AUS DEM BRUNNEN K 

ODMMT EIN FROSCH" 

7265 PRINT"® MIT DEM BALL IM MUND.":6(1 

0}=9:6 (5) =9: 66=66-1:60T0749 

7270 IFY< >30RWHS$< >"GEIST"ORGS< >1LTHEN7290 

7275 IFZA<>1THEN7630 

7280 POKEVI+21,0:605UB840: PRINT" SIE 

HABEN DEN GEIST BESIEGT. !" 

7285 GE=1:65=0:61Y)=7:66=66-1:6010749 

7290 IFYX< >&0ORP< >1LOORWHSZ >"QUADRAT"ORFA=1 

THEN7305 

7295 FA=1:6(5)=10:66=56-1:RI$# (10) ="N-W-R 

"2 ZIS(10)="070919" 

7300 RIFL19)="S-H"s ZIH(19)="1710":GOT018B 

o 

7305 IFY< >40RP< >30RWHF< >"SPIEGEL"ORLEN(R 

IF (3) )=5THEN7315 

7310 60107235 

7315 IFY< >BORZB< >1LORWHS< >" ZAUBERER"THENT 

380 

7320 IFZA<>ZTHEN7620 

7325 POKEVI+21,0:FORI=1T02000: NEXT:60T07 

820 

73350 IFY<>1ORWHS<>"GEIST"ORGS( > 1THENT340 

7335 60107280 

7340 IFY< >3DRWHS< >" BRUNNEN"ORP< >? THEN?S& 

Q 

7345 613) =18:66=66-1:605UB8&40: IFMO=1THEN 

PRINT" OK !":60T0747 

7350 IFZA=1THENPRINT" AUS DEM BRUNNEN ER 

TOENT EIN SCHREI...":1M0=1:607T0749 

7355 6(3)=9:PRINT" DAS AMULETT KOMMT ZUR 

UECKGEFLOGEN '":6010749 

7360 IFYV< >BORWHS< >" SPIEGEL"ORP< >SORLEN (R 

I$ (3) )=STHEN7380 

7365 IFZA=2THEN7245 

7370 60T07235 

7380 IFWHF="BRUNNEN"ANDP=ITHENG (Y)=18:60 

107415 

7382 IFWH$="QUADRAT"ANDP=10ANDFA=OTHENG ( 

Y)=10:60T07415 

7385 IFWHE="HOEHLE"ANDP=17THENG (Y)=19:60 

T07415 


DER FRO 
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7390 IFWH$="GEIST"ANDGS=1THEN7&430 
7395 IFWH$=" ZAUBERER"ANDZB=1THEN7620 
7400 IFWH$="SPIEGEL"ANDP=SANDLEN (RI$ (3) ) 
=3THEN7235 

7405 GOSUB860:PRINT" ICH VERSTEHE SIE NI 
ECHT..." 

7410 FORI=1T02000: NEXT: G0T07205 

7415 G6=66-1:605UB840:PRINT" OK !":G0T0 
749 

7499 REM **%* ERKLAERUNG *#*#* 

7500 PRINT"LI} WIE MUESSEN VERSUCHEN, EIN 
E AUFGABE ZU" 

7505 PRINT" LOESEN, INDEM $IE DEM -OMPU 
TER SAGEN," 

7510 PRINT"@ WAS ER TUN SOLL." 

7515 PRINT"@ +UR -ORTBEWEGUNG GEBEN # 
IE NUR" 

7520 PRINT" #BKUERZUNGEN EIN (/-#-0-7- | 


-_. = .T_7 "REM N-5-W-0-H-R = NORD — 
75323 FRINT'"E 9%. - ve - T4 - IT-1- 
ATI. 


752& REM SUED - WEST — OST -— HOCH — RUNT 
ER \ 
7550 PRINT"EB #NSONSTEN MUESSEN DIE |EFEH 
LE AUS ZWEI" \ 

7535 PRINT"B SOERTERN BESTEHEN (XERB/ |AU 
PTWORTI" 

7540 PRINT" -ER -OMPUTER VERSTEHT DIE x 
ERBEN =" 

7545 PRINT" DEFFNE,FANGE „KUESSE,NIMM,LI 


ES,WIRF," 

7550 PRINT" BERUEHRE/KLOPFE „ERSCHLAGE/T 
OETE SAGE" 

7555 PRINT" ZERBRECHE/ZERSTDERE - — 
RTIG ??77" 


7560 POKE198,0:WAIT198,1:60T0100 

7599 REM **#* VERLOREN #### 

7600 IFZB=1THEN7&20 

7605 IFGS=1THEN7630 

7610 IFMR=1THEN7&40 

7820 PRINT"LM@ DER ZAUBERER HAT SIE IN E 
INE KROETE" 

7625 PRINT" VERWANDELT. ":60T07700 

7630 PRINT"CEM DER GEIST HAT SIE GEB 
1SSEN. ":60707700 

7640 PRINT"(M DAS MONSTER HAT BESCHLOSS 
EN, SIE" 

7645 PRINT"® ZU HEIRATEN. ":60T07700 

7650 PRINT" SIE SIND UNTERWEGS GESTOL 
PERT UND" 

7655 PRINT" HABEN SICH DABEI DEN KLEINE 
N FINGER" =PRINT"N VERSTAUCHT. ": 60107700 

7660 PRINT"LEEN AUS DEM TORBOGEN HAT SICH 
EIN STEIN" 

7665 PRINT" GELOEST UND IST IHNEN AUF D 

EN FUSS":PRINT" GEFALLEN. ": 60107700 
7670 PRINT"LM®@ SIE SIND IN EINEN ERDRUTS 

CH GERATEN" 

7675 PRINT" UND HABEN SICH IHRE NEUE HD 

SE DRECKIG":PRINT" GEMACHT. ":50T07700 
7880 PRINT"IMM SIE SIND VOM BERG GEFALLE 

N UND HABEN" 

7685 PRINT" DABEI IHRE BRILLE ZERBROCHE 

N. ":60T07700 

7690 PRINT" 

EINE" 

7695 PRINT" 
ru 

7700 PRINT" DESHALB MUESSEN SIE LEIDER 

AUFGEBEN. " 

7705 PRINT" 


SIE HABEN SICH IN 


BANANE VERWANDELT 





MOECHTEN SIE ES NOCH EIN 
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MAL PROBIEREN 7?" ” 
7710 GETI$: IFI$="J" THENRUNS 
7715 IFI$S<{>"N"THEN?710 


7720 END . 

77997 REM *#*# GEWONNEN ##%%* 

7800 PRINT"LEIE ... UND DER "H$t 
5)" „..":FORI=S1TO1500: NEXT 

7805 PRINT"O “.. VERWANDELT SIC 


H ...":FORI=1T01500: NEXT 

7810 PRINT"O... IN EINE WUNDERSCHOENE PR 

INZESSIN ... ":FORI=1T02000: NEXT 

7815 PRINT "LIE" : 50T07840 

7820 FOKEVI+21 ,0: PRINT "LZRppEe 

ABEN DEN ZAUBERER BESIEGT !!!":G0T07840 
BSU PR WLANIRERLRIATR! 

ATZ GEFUNDEN !!ı" 
7840 PRINTSPC (13) "BBIBRATULIERE, ":PRINT"@ 
SIE HABEN IHR ZIEL ERREICHT !!" 

7850 PRINT" KEBE WOLLEN SIE WEITER SP 
IELEN ?" 

7860 GETI$: IFI$="J"THENRUNS 

7870 IFI$<>"N"THEN7B&0 

7880 END 

8000 DATAUEFFNE ,BDJPRU,FANGE ‚EMO,KUESSE, 
EMNOU „NIMM , ABCDEFGHIJKLRRU 

8005 DATAWIRF ‚„ABCDEFGHIJKL,LIES,.DIS,BERU 
EHRE „POTU, TOETE ,EMNO 

8010 DATAZERSTOERE ‚ABPORT ‚WERFE.LESE.KLO 
PFE „ERSCHLABE , ZERBRECHE 

8015 DATAGLASKUGEL ‚KAEFIG,AMULETT ,BUCH,F 
ROSCH,HELM,KEULE , SCHWERT „ZETTEL,BALL 
8020 DATASCHLUESSEL ‚KETTENHEMD „MONSTER, Z 
AUBERER, GEIST ‚ TUER, SPIEGEL ‚SCHRANK 

8025 DATASCHRIFT „WAND , QUADRAT 

8030 DATAS,03,S-0,0503,W-0,0204 ,W-H,0311 
‚N-5,0208,0,07,5-W, 10064,N-0,0509 

8035 DATAS-W-O-R,13081018,N-W,0709,R,04, 
W-0,0013,N-W-0,071214,W-0,1300,0,1& 

8040 DATAW-O-H, 151713,N-W,1916,H,09,58,17 
8045 DATA20,20,20,20,18,2,21.21,21,21,6, 
5 

8050 DATASILBER,BLUME ,GOLD,RING,KUPFER,H 
ORN,PLATIN,STERN 

8054 REM SPRITE 1 - GEIST 

8055 DATAO,127,0,0,255,192,1,206,96,3,25 
5,240,1,255,240,1,245,248,1,255,248 

8060 DATAS,255,248,7,255,248,15,255,252, 
31,255,254,3,255,240,3,255,224 

8065 DATA3,255,224,7,255,224,7,255,224,7 
‚255,240,15,255,240,15,255,248 

8070 DATA31,255,252,59,187,110 

8074 REM SPRITE 2 - MONSTER 

8075 DATA12,0,48,30,0,120,3,0,192,1,129, 
128,3,195,192,15,231,240,62,126,124 

8080 DATA124,60,62,248,60,31,254,126,127 
‚255,255,255,127,255,254,127,255,254 
8085 DATA63,90,252,30,165,120,31,255,248 
‚7,255,224,4,126,32,4,60,32 

8090 DATA31,0,248,42,129,84 

8094- REM SPRITE 3 - ZAUBERER 

8095 DATAO,15,224,0,63,128,0,127,128,0,2 
19,0,1,255,0,3,255,128,31,255,240 

8100 DATA127,255,252,127,255,252,111,255 
‚236,111,255,236,103,255,204,98,170,140 
8105 DATA99,255,140,71,255,196,7,199,192 
‚15,131,224,15,1,224,14,0,224 

8110 DATA28,0,112,60,0,120 


READY. 








Listing des Monats: Castle of Doom (Schluß) 
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Die 
meisten Menschen 
glauben, daß 
sie nicht zeichnen 
können. 
Lassen Sie sich vom 
Gegenteil über- Der Zauberer | 
zeugen und vom He zesı ij | 

werden Sie mit | 
»Paint Magic« zum 
Künstler. 


an izard 
= In} 


Die Küste j 
und die | 
Sind auf 
»Paint | 
Nagic« 


_. ‚@bge. 
Speicher j 





it diesem Programm wird Ihr 
M Computer zwar nicht zum Zau- 

berer und es hat auch nichts 
mit Magie zu tun, wenn man mit 
»Paint Magic« arbeitet. Es bietet 
aber doch einige außergewöhnli- 
che Fähigkeiten, die es von anderen 
Zeichenprogrammen abhebt. Sein 


Leistungsumfang resultiert allein 


daraus, daß es alle Hardwaremerk- 
male des © 64 nutzt. 

Anhand einer leicht verständlich 
geschriebenen Anleitung (eslaglei- 
der nur eine englische Version vor) 
arbeitet man sich recht schnell in 
die Grundbefehle von »Paint Magic« 


ein. Mit diesen Befehlen kann man 
Linien ziehen, Boxen beziehungs- 
weise Rechtecke und Kreise ziehen 
oder einfach frei auf dem Bild- 
schirm zeichnen. Doch nur mit die- 
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sen Möglichkeiten könnte man noch 
nicht viel anfangen. Beschäftigt man 
sich nun intensiver mit dem Befehls- 
satz und der Bedeutung der einzel- 
nen Begriffe, lernt man bald die 
Vielfalt der Verwendungsmöglich- 
keiten und die Stärken von »Paint 
Magic« kennen. 


Auf zwei Bildschirmen 
gleichzeitig malen 


Grundsätzlich hat man zwei Bild- 
schirme zur Verfügung, zwischen 
denen man hin und her schalten 
kann. Setzt man den RESTORE-Be- 
fehl, bei dem der zuletzt getätigte 
Vorgang rückgängig gemacht wird, 
richtig ein, kann man sogar mit drei 
Bildern gleichzeitig arbeiten. Ein 
breites Spektrum an Verwendungs- 
möglichkeiten bietet der FILL-Be- 
fehl. So kann man nicht nur Flächen 
mit einer Farbe ausfüllen, sondern 
in Verbindung von zwei Farben eine 
horizontale, vertikale oder diagona- 
le Schraffur erzeugen. Doch damit 
noch nicht genug. Hat man sich 
Farbmuster selbst definiert, kann 
man auch mit diesen den FILL-Be- 
fehl anwenden. 


Den Pinsel selbst 
gestalten 


Eine interessante und neue Sache 
ist der GRAB-Modus. In diesem 
kann man sich ein Rechteck, daß 
maximal 40 x 40 Punkte beträgt, aus 
dem Bildschirm »herausgreifen« 
und dieses sozusagen als Pinsel ver- 
wenden. Außerdem arbeiten auch 
die Befehle LINE, BOX und CIRCLE 
im GRAB-Modus. Es ist damit sehr 
leicht, eindrucksvolle Grafiken auf 
den Bildschirm zu »zaubern«. 

Sie werden sich schon fragen: 
Gibt es denn keine Möglichkeit, ei- 
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Schon der Anfänger 
schafft Kunstwerke 


nen Ausschnitt zu vergrößern und 
damit zu zeichnen? Auch daran wur- 
de gedacht. Drückt man die SPACE- 
Taste, kommt man in den MAGNIFY- 
Modus und der Bereich um den 
Cursor wird stark vergrößert darge- 
stellt. Man kann dann mit dem Aus- 
schnittüber das ganze Bild wandern 
und Veränderungen vornehmen. 
Beialldenoben beschriebenenMo- 
di und Befehlen kann die Geschwin- 
digkeit des Cursors, der mit einem 
Joystick oder über die Cursortasten 
bewegt wird, in acht Stufen variiert 
werden. 


Probleme bei den Farben 


Die Einstellung der verschiede- 
nen Farben ist so eine Sache bei 
»Paint Magic«. Man hat zwar ein ei- 
genes Farbmenü, in dem man die 
fünf Arbeitsfarben vorwählen und 
vier Farbmuster aus diesen entwer- 
fen kann. Doch man weiß nie genau, 
mit welcher Farbe man gerade ar- 
beitet, wenn das Menü nicht mehr zu 
sehen ist. Die einzelnen Farben wer- 
den durch Drücken von SHIFT und 
eins bis fünf eingestellt. Die Arbeits- 
farbe, die dann benutzt wird, ergibt 
sich durch Drücken von eins bis fünf 
alleine. Erst nach längerem Um- 
gang mit »Paint Magic« hat man die- 
ses Problem einigermaßen im Griff. 

Das Programm verzichtet ganz auf 
den Einsatz von Ton, obwohl er anei- 





nigenStellenrechtnützlich wäre. Bei 
der Bedienung der Diskette findet 
man nur Befehle zum Laden, Ab- 
speichern und Löschen von Bildern 
sowie zur Anzeige des Inhaltsver- 
zeichnisses der Diskette. Es wäre 
wünschenswert, auch Diskettenbe- 
fehle einsetzen zu können, die alle 
Möglichkeiten zur Floppydiskbe- 
dienung enthalten. 

Mit »Paint Magic« bekommt man 
ein sehr leistungsfähiges Werkzeug 
zur Äusschöpfung der Grafikfähig- 
keiten des Computers. In Verbin- 
dung mit dem gut geschriebenen 
und übersichtlich aufgebauten 
Handbuch stellt es eine ideale Lö- 
sungfür solche Leute dar, die geme 
aufdemBildschirmmalen, zeichnen 
oder einfach ihrer Fantasie freien 
Lauf lassen wollen. 


Hilfestellung 


Wer sich nicht traut, gleich frei zu 
zeichnen, kann eines der elf abge- 
speicherten Bilder auf den Bild- 
schirm holen und dieses verändern 
oder einfach darauf weitermalen. 
Zu diesem Vorgang findet man in 
der Anleitung genaue Hinweise. 

»Paint Magic« wird ab September 
von Happy Software zum Preis von 
zirka 80 Mark für den Commodore 
64 auf Diskette angeboten. 

(Markus Braun/wg) 
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usantmet 
Das 


teiprogrammen wie Superbase 64 

oder Multidata ist ISM 64 kein fer- 
tiges Anwendungsprogramm. Es 
handelt sich vielmehr um eine Sy- 
stemerweiterung, die, erst eingear- 
beitet in ein eigenes Programm, 
richtig nutzbar ist. 

Diese Konzeption hat Vor- und 
Nachteile: Zum einen bietet sie die 
Möglichkeit der individuellen Pro- 
blemlösung, zum anderen kann 
aber insbesondere der Anfänger 
vor so große programmtechnische 
Probleme gestellt werden, daß er 
ISM 64 am Ende gar nicht nutzen 
kann. 

Der hier vorliegende Testbericht 
geht daher nicht nur auf die Mög- 
lichkeiten ein, die ISM 64 bietet, son- 
dern gibt auch Hinweise zur Pro- 
grammierung. 

Grundlage dieses Berichts ist die 
mehrmonatige Arbeit mit ISM 64 bei 
der Erstellung eines umfassenden 
Änwenderprogramms. 


Allgemeines 


l m Gegensatz zu den anderen Da- 





ISM 64 selbst ist ein Maschinen- 
programm von 15 KByte Länge und 
belegt normalerweise den Basic- 
Speicher ab dez. 27000. Für das An- 
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wenderprogramm stehen dann 
noch etwa 24 KByte zur Verfügung. 
Auch wenn man noch einen gewis- 
sen Bedarf an Speicherplatz für Da- 
ten abzieht, sollte dies ausreichend 
sein. Das Maschinensprache-RAM 
(dez. 49152 bis 53247) bleibt frei; hier 
lokalisierte Programme (zum Bei- 
spiel Interfaces oder Programme 
zur Unterstützung der Floppy) soll- 
ten normal verwendbar sein. 

Nach dem Laden von ISM 64 ste- 
hen eine Reihe spezieller Befehle 
zur Einrichtung und Bearbeitung 
von Dateien zur Verfügung. Diese 
Befehle sind sehr mächtig und nicht 
mit jenen zu vergleichen, die man 
von den üblichen Interpretererwei- 
terungen wie zum Beispiel Simons 
Basic kennt. Das Schreiben, Ändem 
und Suchen von Datensätzen wird 


dann sehr bequem und effektiv. 


Was bietet ISM 64? 


ISM 64 beeindruckt zunächst 


durch die Möglichkeit, praktisch un- 
begrenzt lange Datensätze verwal- 
ten zu können. Ein einzelner Satz 
darf bis zu 31875 Zeichen lang sein, 
er kann in bis zu 125 Felder unterteilt 
werden, wobei jedes Feld bis zu 255 
Zeichen enthalten darf. Die Felder 
können von fester oder variabler 
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Länge sein, bis zu 40 Felder lassen 
sich als Schlüsselfelder definieren. 
Angesichts dieser Zahlen fragt man 
sich natürlich, ob dies überhaupt 
sinnvoll ist. Welcher Privatanwen- 
der hat schon Datensätze mit Zehn- 
tausenden von Zeichen oder Dut- 
zenden von Schlüsseln? Hier muß 
man wissen, daß der ISM nicht spe- 
ziell für den C 64 entwickelt wurde. 
Es handelt sich vielmehr um die an- 
gepaßte Version eines Programms, 
das in erster Linie zum gewerbli- 
chen Einsatz auf den CBM-Compu- 
tern der 8000er-Serie gedacht ist. 
Aber davon abgesehen, auch bei 
der privaten Änwendung sind Satz- 
längen von um die 1000 Zeichen 
durchaus nicht unrealistisch. Wenn 
man zum Beispiel Literaturdaten 
verwaltet und jedem Eintrag eine 
kurze Zusammenfassung der Litera- 
turstelle hinzufügt, sind 500 bis 1000 
Zeichen schnell erreicht. 

Entsprechend weitgehend sind 
auch die Möglichkeiten, die dem 
Anwender bei der Einrichtung der 
Datei zur Verfügung stehen. Wie be- 
reits erwähnt, kann ein Feld des Sat- 
zes als variabel definiert werden, 
dasheißt die Länge des Feldes kann 
von Satz zu Satz unterschiedlich sein. 
Hierbei wird auf der Floppy aber 
immer nur der Platz belegt, der der 
tatsächlichen Länge des Satzes ent- 
spricht. Dies ist keinesfalls selbst- 
verständlich, andere Systeme sind 
da nicht so flexibel. Dem Anwender 
bleibt auch überlassen, welche Fel- 
der er wirklich mit Daten füllen will. 
Auf diese Weise ist esmöglich, ohne 
Speicherplatzverschwendung den 
Datensatz großzügig zu definieren 
und erst nach und nach alle Felder 
auszufüllen. Ein Datensatz kann so 
im Laufe der Zeit dynamisch wach- 
sen. 

Bis zu 40 Felder eines Satzes kön- 
nen als Schlüssel definiert werden. 
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Von diesen Feldern werdenbiszu 48 
Zeichen linksbündig in die Schlüs- 
seldatei eingetragen. Bei der Suche 
nach einem Satz wird dann zunächst 
auf diese Datei zugegriffen (siehe 
unten). Bei ISM 64 können die 
Schlüssel als ein- oder mehrdeutig 
definiert werden. Ein mehrdeutiger 
Schlüssel (zum Beispiel Nachname) 
darf mehrfach vorkommen, durch 
sequentielle Suche (siehe unten) 
können dann alle Sätze mit diesem 
Schlüssel gefunden werden. Hat 
man dagegen einen Schlüssel als 
eindeutig definiert (zum Beispiel 
sinnvoll bei einer laufenden Num- 
mer), dann weist der Dateiverwalter 
diesen Satz mit einer entsprechen- 
den Fehlermeldung zurück. Der 
Satz geht hierbei natürlich nicht ver- 
loren, sondern kann vom Änwen- 
derprogramm zur Korrektur weiter- 
verarbeitet werden. Überhaupt ist 
die Fehlerbehandlung bei ISM 64 
sehr gelungen. Systemabstürze las- 
sen sich bei geschickter Program- 
mierung weitgehend ausschließen. 

An dieser Stelle erscheint es sinn- 
voll, etwas ausführlicher auf die 
Therorie der Dateiverwaltung ein- 
zugehen. ISM 64 verwendethier kei- 
ne spezielle Lösung, sondern ver- 
waltet die Sätze nach dem Prinzip 
der relativen Datei, wobei Schlüssel 
und Sätze in unterschiedlichen Da- 
teien abgelegt werden. Relativdatei- 
en werden vom Basic V 2.0 ja leider 
nicht unterstützt, und sind daher 
sonst nur durch Kunstgriffe zugäng- 


lich. 
Das Prinzip der 
relativen Datei 


Wie istnuneine relative Datei auf- 
gebaut? Das Prinzip ist so einfach 
wie wirkungsvoll: Der Speicherplatz 
auf der Floppy wird zunächst in klei- 
ne Häppchen, die sogenannten Re- 
cords, zerlegt. Die Länge der einzel- 
nen Records ist bei ISM 64 frei wähl- 
bar. Dies ist wichtig, wenn man den 
beider Floppy VC 1541 janicht gera- 
de üppig bemessenen Speicher- 
platz optimal nutzen will. Die einzel- 
nen Records werden intern durch- 
numeriert. Ein Datensatz wird nunin 
diese Records geschrieben, ein Satz 
von beispielsweise 300 Byte Länge 
belegt dann beieiner gewählten Re- 
cordlänge von 100 Byte gerade drei 
Records. Dem Satz wird dann vom 
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Programm intern zur eindeutigen 
Unterscheidung von anderen Sät- 
zen die Nummer zugewiesen, die 
der Nummer des ersten belegten 
Records entspricht. Gleichzeitig 
werden die Schlüssel des Satzes — 
dies sind die Einträge, über dieman 
später auf den Satz zugreifen möch- 
te—ineine eigene Datei, die Schlüs- 
seldatei, in einen sogenannten 
Schlüsselbaum eingetragen. Die 
Schlüssel werden von vornherein al- 
phabetisch beziehungsweise nume- 
risch sortiert. Bei jedem Schlüssel 
findet sich dann als Verweis auf den 
zugehörigen Satz die Nummer des 
Records, mit dem der Satz beginnt. 
Diese Nummer ist naturgemäß um- 
so höher, je weiter der Satz relativ 
vom Anfang der Datei entfernt ist, je 
mehr Records zum Zeitpunkt des 
Eintrags also schon belegt waren. So 
erklärt sich die Bezeichnung Rela- 
tivdatei. Bei der Suche nach einem 
bestimmten Satz sucht der Dateiver- 
walter im Schlüsselbaum nach dem 
angegebenen Suchbegriff. Ist die- 
ser vorhanden, dann merkt sich der 
Dateiverwalter die beim Schlüssel 
eingetragene Recordnummer. Die- 
se gibt die relative Lage des ent- 
sprechenden Satzes zum Dateian- 


Ausdruck von Datensätzen 


fehle erfolgt aus einem ganz norma- 
len Basic-Programm heraus, der 
Komfort der Arbeit ist in erster Linie 
von der Qualität des Anwenderpro- 
gramms abhängig. Die Befehle an 
sich lassen in bezug auf die dem An- 
wendungsprogrammierer gegebe- 
nen Möglichkeiten eigentlich kaum 
Wünsche offen. 
Datensätze eintragen 

Jeder Datensatz kann und sollte 
unmittelbar nach der Erstellung auf 
die Floppy geschrieben werden, 
um nicht das Risiko eines etwaigen 
Datenverlustes, beispielsweise in- 
folge eines Stromausfalls, einzuge- 
hen. Die Zeit, die zum Eintrag benö- 
tigt wird, steigt mit der Anzahl der 
Schlüssel stark an. Allerdings wer- 
den die Schlüssel beim Eintrag be- 
reits alphabetisch sortiert, ein Ar- 
beitsgang, der beider Ausgabe von 
sortierten Listen bei den meisten an- 
deren Programmen später bewäl- 
tigt werden muß. Vierzig Schlüssel 
sind bei der bekannten »Schnellig- 
keit« der VC 1541 sicher kaum reali- 
sierbar. ISM 64 bietet hier allerdings 
die Möglichkeit der Stapelverarbei- 
tung, das heißt man trägt zunächst 
nur den Satz ein. Dies geht sehr 
schnell, der zeitaufwenige Eintrag 


dim dn$(1):dn$(1)="Dateiname" 
!iopen,1®,dn#(1),S:rem Datei öffnen 
!iread,m,1,df$(1) ,rn,fe:rem Datensatz lesen 
!'iclose:rem Datei schließen 

open4,4:rem Druckerkanal öffnen 


for i=i ton 
print#4,df#$(i) 


next:rem Felder des Satzes drucken 

close4:rem Druckerkanal schließen 
open15,8,15:rem Befehlskanal der Floppy öffnen 
print#15,"i":rem Floppy initialisieren 
closel5:rem Befehlskanal der Floppy schließen 
return:rem z.B. nächsten Satz lesen 





Nach jedem Ausdruck muß die Floppy initialisiert werden. Diese kleine Routine gibt auch einen Ein- 
druck, wie die ISM-Befehle in ein Basicprogramm eingebaut werden. 


fang an, und der Dateiverwalter 
kann auf diesen Satz zugreifen. Das 
Prinzip der Datenspeicherung in 
Relativdateien gilt momentan als op- 
timal beider Arbeit mit Kleincompu- 
tern. 

Wie bereits erwähnt, stellt ISM 64 
Befehle zum Eintragen, Ändern und 
Suchen von Datensätzen zur Verfü- 
gung. Der Aufruf der einzelnen Be- 


der Schlüssel in den sortierten 
Baum erfolgt erst später. Dies kann 
durch ein kleines Programm ge- 
schehen, ohne daß man dabei sein 
muß. Die Realisierung dieser Mög- 
lichkeit, Satz und Schlüssel getrennt 
voneinander einzutragen, ist aller- 
dings eine Sache des Anwender- 
programms. Auf diese Weise ist es 
dann möglich, zu einem Satz mehr 
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Schlüssel einzutragen, als bei der 
Definition der Datei vorgesehen 
war. 
Datensätze ändern 

Das Ändern eines Satzes ist mög- 
lich, indem man den Satz zunächst 
liest, die Änderungen vornimmt, 
und den Satz dann mit einem spe- 
ziellen Schreibbefehl wieder ein- 
trägt. Auch hier ist der Komfort von 
der Qualität des Änwenderpro- 
gramms abhängig. Zusätzlich ist es 
möglich, einen Satz komplett mit al- 
len Schlüsseln, nur den Satz, nur die 
Schlüssel, oder aber nur einzelne 
Schlüssel des Satzes zu löschen (und 
gegebenenfalls durch neue zu er- 
setzen). 


Datensätze suchen 

Sicher am wichtigsten bei einem 
Dateiverwaltungssystem sind die 
Möglichkeiten, die man zur Suche 
nach Datensätzen hat. ISM 64 bietet 
hier Befehle zur Suche mit voller 
Übereinstimmung eines Schlüssels 
mit einem Suchbegriff, sowie zur Su- 
che mit verkürztem Schlüssel (zum 
Beispiel Suche nach Sätzen, bei de- 
nen ein Schlüssel mit A beginnt). Zu- 
sätzlich kann über die Recordnum- 
mer direkt auf einen bestimmten 
Satz zugegriffen werden. Eine Su- 
che mit Joker (zum Beispiel nach ei- 
nem »M??er« ist nicht von vornherein 
vorgesehen, kann aber im Änwen- 
derprogramm leicht realisiert wer- 
den. Außerdem erlaubt ISM die se- 
quentielle Suche, das heißt, man 
liest den ersten Satz, auf den ein be- 
stimmtes Kriterium zutrifft, und kann 
dann alle weiteren Sätze lesen. Die- 
se Option erlaubt auch das schnelle 
Durchblättern der Datei. Oft findet 
man so einen interessierenden Satz 
am schnellsten. Das Zeitverhalten 
bei der Suche ist noch befriedi- 
gend, die Grenzen der Floppy VC 
1541 werden hier mehr als offenbar. 
Ein kleiner Nachteil ist sicherlich, 
daß vom Programm Groß- und 
Kleinschreibung unterschieden 
werden. Wenn man nach einem 
Mayer mit mayer sucht, dann wird 
der entsprechende Satz nicht gefun- 
den. 
Drucken von Datensätzen 

Das Drucken von Datensätzen 
wird von ISM 64 nicht unterstützt, die 
Druckroutine ist allein Sache des 
Anwenderprogramms. Dies sollten 
insbesondere alle C 64-Anwender, 
die keinen Commodore-Drucker 
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haben, nicht bedauern. Oft muß 
man ja feststellen, daß bei fertigen 
Programmlösungen andere als 
Commodore-Drucker, wenn über- 
haupt, nur unvollständig unterstützt 
werden. Die Möglichkeit einer ganz 
individuellen Druckroutine ist in sol- 
chen Fällen eher ein Vorteil. Aller- 
dings muß man bei der Program- 
mierung einiges unbedingt beach- 
ten (siehe unten). 


Die Programmierung von 
ISM 64 


Wie bereits oft erwähnt, ist ISM 
nur zusammen mit einem Änwen- 
derprogramm voll nutzbar. Wie ein- 
fach oder schwierig ist nun die Er- 
stellung eines solchen Programms? 
Ein möglicher Erfolg beziehungs- 
weise Mißerfolg hängt erstens da- 
von ab, wie gut man das Basic V 2.0 
beherrscht und zweitens, wie hoch 
die eigene Frustrationsschwelle 
liegt. Wenn man gut programmieren 
kann, und nicht so schnell aufgibt, 
wird man sicherlich zu einer befrie- 
digenden Lösung kommen. Das mit- 
gelieferte Handbuch ist umfassend, 
auch im Detail. Allerdings ist es 
nicht einfach zu lesen. Viele Kapitel 
wird auch der Fortgeschrittene 
mehrfach studieren müssen, vieles 
wird auch erst im Laufe der Arbeit 
mit dem Programm klar werden. 
Hilfreich ist es, daß ein fertiges, 
kommentiertes Beispielprogramm 
auf der Diskette mitgeliefert wird. 
Dieses Programm kann normal geli- 
stet werden, und ist durchaus nütz- 
lich zur Inspiration bei der Pro- 
grammerstellung. Leider enthält es 
mindestens einen programmtechni- 
schen Fehler. Ein anderes, mitgelie- 
fertes Programm erlaubt die Anlage 
beliebiger Dateien. Diese Routine 
istsehr brauchbar, so daß keine Not- 
wendigkeit besteht, eine eigene 
Anlage-Routine zu schreiben. 

Wie bereits eingangs ausgeführt, 
liegt eine der Hauptstärken des ISM 
64 darin, praktisch unbegrenzt lan- 
ge Datensätze verwalten zu können. 
Unter anderem darf ein einzelnes 
Feld bis zu 255 Zeichen lang sein. 
Leider ist im Basic 2.0 eine adäquate 
Eingabemöglichkeit nicht vorgese- 
hen. Das INPUT-Statement erlaubt 
nur Eingaben bis zu real 78 Zeichen, 
wobei keine Kommata vorkommen 
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dürfen. Einziger Ansatzpunkt ist das 
GET- Statement. 

Ein besonderes Kapitel ist der 
Ausdruck von Datensätzen. Dies ist 
wie gesagt allein Sache des Änwen- 
derprogramms. In einem solchen 
Programm ist nun folgendes zu be- 
rücksichtigen: Nach jedem Aus- 
druck muß die Floppy initialisiert 
werden. Wird die Floppy nach ei- 
nem Ausdruck nicht initialisiert, 
dann führt der nächste Dateizugriff 
zu einem Systemabsturz. Da dieser 
Effekt auftrat: 

1. Bei einem über ein Software- 
Interface am User-Port angeschlos- 
senen Epson-Drucker 
2. bei einem normal angeschlosse- 
nen VC 1526 und 
3. auch wenn überhaupt gar kein 
Drucker angeschlossen war, scheint 
es sich um ein grundsätzliches Pro- 
blem zu handeln, dessen Ursache 
wohl in der Unzulänglichkeit des se- 
riellen Busses liegt. Wie programm- 
technisch beim Ausdruck verfahren 
werden kann, ist aus dem abge- 
druckten Listing ersichtlich. Leider 
wird in der ISM-Anleitung nichts von 
dieser Problematik erwähnt, ob- 
wohl dies meiner Änsicht nach un- 
bedingt notwendig wäre. Denn was 
nutzt einem letztendlich ein Daten- 
verwaltungsprogramm, wenn man 
nicht drucken kann. 

Fazit 

ISM 64 ist ein sehr leistungsfähi- 
ges Programm mit professionel- 
ler Konzeption. Die Notwendigkeit, 
ein eigenes Anwenderprogramm 
schreiben zu müssen, kann ein Vor- 
teil oder Nachteil sein, je nach Art 
des geplanten Einsatzes und den 
Kenntnissen des Anwenders. Der 
Preis von zirka 140 Mark ist sicher- 
lich günstig zu nennen. 

Am Ende sei noch erwähnt, daß 
für alle, die ISM 64 einsetzen möch- 
ten, — ohne ein eigenes Änwender- 
programm zu schreiben — die Mög- 
lichkeit besteht, ein fertiges Pro- 
gramm mit Anleitung vom Autor die- 
ses Berichtes zu beziehen. Der Au- 
tor ist auch geme bereit, anderen 
ISM-Anwendern bei aufgetretenen 
Problemen im Rahmen seiner Mög- 
lichkeiten weiterzuhelfen. Schrei- 
ben sie an H. ]J. Schlicht, Kirschgar- 
tenstr. 7, 6900 Heidelberg | 

(H. J. Schlicht/rg) 
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Spiele-Test 


One on One wurde als 


heißeste Basketballprogramm 





das erste und 
angekündigt, das die 


Fans von Sportspielen je gesehen haben. Wir haben 
uns »One on One« einmal näher betrachtet. 
Getestet wurde es auf dem Commodore 64. 


un zum Spiel (Preis zirka 129 

Mark) selbst. Nachdem man 

das Programm von Diskette (es 
gibt keine Kassettenversion) in den 
C 64 geladen hat, ertönt zunächst 
die mehrstimmige Anfangsmelodie, 
und die beiden Hauptakteure Julius 
Erwing und Larry Bird demonstrie- 
ren gekonnt auf dem Bildschirm das 
Spiegelgeschehen (siehe Bild). Be- 
tätigt man den Feuerknopf, kommt 
man in das Auswahlmenü. Im Ge- 
gensatz zu vielen anderen (Sport-) 
Spielen können hier sehr viele Pa- 
rameter vom Spieler selbst einge- 
stellt werden, auch wenn das eigent- 
liche Spielgeschehen gleich bleibt. 


Lassen Sie sich nicht 
austricksen 


Folgende Details können verän- 
dert werden: 
l. Anzahl der Spieler (ein Spieler ge- 
gen den Computer oder zwei Spie- 
ler gegeneinander) 
2. Spielstärke des Computer- 
Gegners (vom Anfänger bis Profi) 
3. Spielart: 
a) Spiel auf Zeit (2 bis 8 Minuten pro 
Viertel) 
b) Spiel auf Erreichen einer gewis- 
sen Punktzahl (ebenso vom Spieler 
einstellbar) 
4. Festlegung, welcher Spieler nach 
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erfolgreichem Korbwurf den Ball er- 
hält. 

Nützlich für den Spielablauf ist es 
ebenfalls, daß man während des 
Spiels jederzeit in das Auswahlme- 
nü zurückkehren kann, um gegebe- 
nenfalls einige Änderungen vorzu- 
nehmen und das unterbrochene 


Spiel dann fortzusetzen. Nachdem 


man dies alles überstanden hat, 
kann man anfangen zu spielen. Es 
handelt sich bei One on One nicht 
um ein Spiel zweier Mannschaften 
auf zwei Körbe, sondern um ein 
Spiel Mann gegen Mann auf einen 
Korb. Doch nichtsdestotrotz erlebt 
man nun eine (fast) perfekte Simula- 
tion des Basketballspiels. Die Bewe- 
gungen der Spieler, zum Beispiel 
beim Sprungwurf, sind täuschend 
den echten Bewegungen der Spie- 
ler im Basketballsport nachempfun- 
den. Auch die sonstigen Feinheiten 
entsprechen den Original-Basket- 
ballregeln (bis auf einige Ausnah- 
men). So besteht die Möglichkeit, 
den Gegner zu »foulen«; in diesem 
Fall erscheint der Schiedsrichter auf 
dem Bildschirm und pfeift das Spiel 
ab. Je nach Art des Fouls wird einem 
zum Beispiel ein Freiwurf zugespro- 
chen. Eine weitere Besonderheit ist, 
daß man den Korb »zerschmettern« 
kann. Die heruntergefallenen Teile 
werden dann vom Hilfspersonal auf- 
gekehrt. Der Spielstand, die noch 
verbleibende Spielzeit und die An- 
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zahl der von den Spielern begange- 
nen Fouls werden am oberen linken 
Bildschirmrand angezeigt. Der 
Kraftverlust, der zum Beispiel durch 
dauerndes Springen eintritt, wird 
mittels zwei waagrechten Balken am 
unteren Rand des Bildschirms dar- 
gestellt. 

Je größer der Kraftverlust ist, de- 
sto niedriger springt der jeweilige 
Spieler. Dies ist vor allem beim Ver- 
hindern eines Korbwurfs des Geg- 
ners von Bedeutung. 

Die Regelung, daßeinSpieler den 
Ball nur 24 Sekunden lang ohne ver- 
suchten Korbwurf führen darf, ist für 
einen flüssigen Spielablauf sehr 
wichtig. So kommt es fast durchge- 
hend zu packenden Szenen vor dem 
Korb. Ein weiteres wichtiges Detail, 
das für das Spiel von sehr großer Be- 
deutung ist, ist die Möglichkeit, 
durch kurzen Druck auf den Feu- 
erknopf den Spieler um seine eige- 
ne Achse drehen zu lassen. Obwohl 
dieses Programm von den Software- 
künstlern »Electronic Arts« stammt, 
die für ihre perfekten Programme 
bekannt sind, gibt es auch einige 
Punkte zu bemängeln. So kann zum 
Beispiel die Weite des Wurfs nicht 
beeinflußt werden. Der Ball bewegt 
sich automatisch in Richtung Korb, 
wobei die Wahrscheinlichkeit eines 
Treffers von der Entfernung zum 
Korb abhängt. 


Ein fast perfektes 
Programm 


Trotz einiger weniger Kritikpunk- 
te muß man diesem Spiel eine sehr 
hohe Qualität bescheinigen. Elek- 
tronic Arts ist es wieder einmal ge- 
lungen, eine gute Spielidee in ein 
(fast) perfektes Programm umzuset- 
zen. Obwohl nur auf einen Korb ge- 
spielt wird, bereitet dieses Pro- 
gramm dem Benutzer eine lang an- 
dauernde Spielfreude, da, und dies 
ist sehr wichtig, der Erfolg größten- 
teils vom Können des Spielers ab- 
hängt. 

(Martin Gaksch/gk) 
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ei »Gruds in Space« überneh- 

men Sie als Spieler die Rolle ei- 

nes Raumschiffkommandanten, 
von dessen Geschick die Zukunft 
der Menschheit abhängt. Nach Mei- 
nung des Oberkommandos der Ver- 
einigten Galaktischen Flotten sind 
Sie als einziger in der Lage, unsere 
im All gestrandeten Kriegsschiffe 
mit lebenswichtigem Treibstoff zu 
versorgen. Gelingt dies nicht, so ist 
der Niedergang unserer Zivilisation 
gewiß. 

Das allein sollte Grund genug 
sein, diesen schwierigen Auftrag an- 
zunehmen. Er führt uns auf eine Rei- 
se durch das Sonnensystem in de- 
ren Verlauf es viele knifflige Rätsel 
zu lösen gilt. Wie bereits im Titelbild 
des Spiels zu erkennen, werden wir 
dabei auch die Bekanntschaft der 
schon sprichwörtlichen kleinen grü- 
nen Männchen aus dem Weltall — 
der sogenannten »Gruds« — ma- 
chen. Es ist selbstverständlich mehr 
als ein Zufall, daß eben diese 
»Gruds« zugleich Werbemaskott- 
chen von Sirius Software sind. 

Obwohl man eine derartige 
Schleichwerbung als eher störend 
empfinden könnte, ist hier genau 
das Gegenteil der Fall. Schon allein 
durch ihre urkomische äußere Er- 
scheinung vermögen die »Gruds« 
viel zum Spielwitz dieses Abenteu- 
ers beizutragen. 
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Auch eine andere Besonderheit 
des Programms sticht ins Auge: Im 
Gegensatz zu den bisher üblichen 
starren Grafiken wurden bei»Gruds 
in Space« die Bilder, die den Spieler 
durch die Handlung führen, mit 
Bewegungs- und Toneffekten ange- 
reichert. So kann man zum Beispiel 
direkt sehen, wie ein angriffslusti- 
ges Monster siegessicher zwinkert 
oder wie in einem Sumpfgebiet Gas- 
blasen aus dem Boden steigen. Auf- 
grund der aufwendigen Grafik be- 
nötigt das Programm aber auch sehr 
wenig erklärenden Text, sodaß man 
selbst mit bescheidenen Englisch- 
kenntnissen selten auf ein Wörter- 
buch zurückgreifen muß. 


fluder. 


dreckler. 


Herfdruckel! 





Druckfehlerteufelchen 


Betrifft: Namensgebung für den Druckfehlerteufel 
Eine recht aussichtlose Sache! Der Druckfehler ist nämlich ein sehr 
wandelbares Wesen. Kaum hat man ihn in Gestalt eines Dreckfuhlers er- 
wischt, kommt einem dieses Fuhrdreckel in der Verkleidung als Dreck- 
hufler wieder aus. Oft wird das Durchferkel auch zur Furchdrelke. 
Der Ulkferch bietet sich scheinheilig als Druckhelfer an und wird da- 
bei unversehens zum Druckhefler, dieser Krechdeufl. 
Gelegentlich versteckt sich der Drehflucker hinter dem Namen Krech- 


In Wahrheit aber ist der Frechdruckel aber ein ganz normaler Huf- 


PS: Entschuldigen Sie bitte meine Fluckdreher, wollte drucken: meine 
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»Gruds in Space« gibt es auch für 
Atari- und Apple-Computer, benö- 
tigt aber in jedem Fall eine Disket- 
tenstation. Für den C 64 kostet das 
Spiel zirka 129 Mark und ist überall 
im Computerfachhandel erhältlich. 
(FO. Malisch) 




























Mit rfuendiclhne Gürssne! 


Giselbert Kosmala 
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0 wird's 9 


gine gatte Land 

lle Welt blickt in diesen Tagen 
A gespannt nach Los Angeles, wo 

die olympischen Sommerspiele 
stattfinden. Dieses sportliche Groß- 
ereignis hat sich auch auf die Spiele- 
Szene für den Commodore 64 aus- 
gewirkt. Das amerikanische Softwa- 
re-Haus»Epyx« präsentiert mit»Sum- 
mer Games« ein Sport-Spiel, das ei- 
ne Goldmedaille verdient. 

Am Anfang stehen zwei Gags: 
Nach Einladen des Programms er- 
freut eine farbenprächtige Eröff- 
nungszeremonie das Auge des Zu- 
schauers, die einen Vorgeschmack 
auf die durchgehend hervorragen- 
de Grafik von »Summer Games:« lie- 
fert. Bevor die Medaillen-Hatz los- 
geht, darfsich jeder Spieler noch ei- 
nes von 16 Ländern heraussuchen, 
woraufhin die entsprechende Natio- 
nalhymne aus dem Lautsprecher 
scheppert. 

Nun geht's richtig los: Nachdem 
der Computer ein knappes Minüt- 
chen nachgeladen hat, treten die 
Tele-Athleten zum Stabhochsprung 
an. Der Anfänger braucht hier 
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gemacht: 
S astik 
gymn 
ng vei der Y 






schon eine Menge Übung, um unter 
dem Jubel der Zuschauer die Stan- 
ge erfolgreich zu überqueren. Ti- 
ming ist hier alles. Doch auf zur 
nächsten Disziplin: »Platform Di- 
ving« ist angesagt. Mehr oder weni- 
ger elegant segeln die Turmsprin- 
ger ins Wasser, wobei man durch 


entsprechende Joystick-Bewegun- - 


gen vier verschiedene Kunstfiguren 
verursachen kann. Produziert man 
eine Bauchlandung, vergibt der 
Computer schon mal eine 0,0 als No- 
te. Kondition ist bei der 400 Meter 
Staffel gefragt: Hier muß man seine 
Kräfte, die in Form eines Balkens am 
unteren Bildschirmrand dargestellt 
werden, gut einteilen. Wilder geht 
es beim 100 Meter-Laufzu. Wer den 
Joystick am schnellsten im Kreise 
dreht, kann eine Zeit unter 10 Sekun- 
den erreichen. 

Nach den Laufwettbewerben 
geht's dann mit der Gymnastik wei- 
ter. Hier ist viel Training erforder- 
lich, um eine junge Dame über ein 


Wenn Sie 
sich »aktiv« 


an den olympischen 
Wettkämpfen beteiligen wollen: 
»Summer Games« macht’s möglich. 


Pferd hüpfen zu lassen, ohne daß sie 
bei der Landung auf die Nase fällt, 
was bei den Mitspielern in der Re- 
gel ein hämisches Grinsen hervor- 
ruft. Bei den beiden Schwimm- 
Wettbewerben ist dann wieder Ti- 
ming gefragt, da die Schwimmer nur 
Tempo machen, wenn man den Feu- 
erknopf in regelmäßigen Interval- 
len betätigt. Abschließend ist Ton- 
taubenschießen angesagt. Um- 
rahmt von einer reizvollen Land- 
schaft müssen möglichst viele von 25 
umherzischenden Tontauben ge- 
troffen werden. Zu guter Letzt gibt 
der Computer den Endstand be- 
kannt und spielt noch einmal die 
Hymne des Olympiasiegers. 

»Summer Games« ist eine rundum 
gelungene Heim-Olympiade, die 
mich spontan begeistert hat. Eine 
Diskette (Preis: zirka 109 Mark), die 
man auch nach vielen Stunden ger- 
ne wieder spielt. 


(Heinrich Lenhardt) 
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Reise 
durch die 


Nachdem wir sie 
in den ersten vier Folgen 


kaum erwähnt haben, sind sie heute dran: 
die Sprites. Sie müssen einfach in jeder Reise durch 
die Grafik unseres C 64 auftauchen. 


prite heißt auf deutsch soviel 

wie »Kobold«, »Gespenst« Wie 

richtige Kobolde können sie so- 
wohl in Dornröschens Schloß (also 
im Bit-Map-Modus) als auch außer- 
halb (nämlich im Normalmodus) 
über den Bildschirm geistern — an- 
scheinend dabei allen bisher ge- 
lemten Regeln über die Grafik wi- 
dersprechen. Wir werden in dieser 
Folge zwar lernen, mit ihnen umzu- 
gehen, sogar sie zu beherrschen — 
aber ihre genaue Funktion und Her- 
kunft wird weiterhin im dunkeln 
bleiben: Meines Wissens gibt es 
noch kein Listing des Sprite- 
unterstützenden Maschinenpro- 
gramms, das wohl imtiefsten Dunkel 
des VIC-I-Chip verborgen liegt: 
Denn der VIC-II-Chip belegt ja die 
Speicherplätze 53248 bis 54271. Im 
erreichbaren Teil dieses Zauber- 
schlosses (53248 bis 53294) liegen 
die bisher viel von uns begangenen 
47 Register (siehe 1. Folge, Tabelle 
)), aber wo ist die Geheimtür zu den 
anderen 978 Bytes? Alles recht ro- 
mantisch, werden Sie sagen. Nun — 
ganz so mysteriös ist die Sache nun 
auch wieder nicht, wie uns der Na- 
me Sprite = Kobold, Gespenst ein- 
reden will. Gehörig entschleiert 
wird das Geheimnis schon durch 
den anderen englischen Ausdruck 
für diese Dinger: MOBs. Das bedeu- 
tet: Movable Object Blocks, also be- 
wegliche Blöcke von Objekten (Bil- 
dern, Darstellungen). Sie werden 
sehen, wenn wir mitdem MOBs um- 
gehen können, ist das verbleibende 
Geheimnis eigentlich keines mehr, 
sondern verwandeltsichnurnochin 
eine Herausforderung für einen 
Maschinensprache-Programmierer. 


142 284? 


Wir werden zunächst einmal 
schöpferisch tätig und erschaffen 
ein Sprite. Der erste Schritt dazu ist 
kreativ: Wie soll das Ding ausse- 
hen? Da bietet sich ja zum Beispiel 
der aus der Magie bekannte Dru- 
denfuß an, auch Pentagramm ge- 
nannt, weil wir ja schließlich diese 
Sprite-Geister bannen wollen (siehe 
Bild )). 


Zeile Byte binär dez. 
0 00000000 4 
1 1 00011000 24 
2 00000000 0 
3 00000000 0 
2 4 00011000 24 
5 00000000 0 
6 00000000 0 
3 7 00111100 60 
8 00000000 0 
9 00000000 0 
4 10 00100100 36 
1 00000000 0 
12 00000000 0 
5 13 01100110 102 

14 00000000 0 

15 00000000 0 
6 16 01100110 102 
17 00000000 0 
18 00000000 0 
7 19 01100110 102 
20 00000000 0 
21 0on1lll 63 
8 22 ml 255 
23 11111100 252 
24 00011000 24 
9 25 01000010 66 
26 00011000 24 
27 00001100 12 
10 28 11000011 195 
29 00110000 48 
30 00000110 6 
1 3 10000001 129 
32 01100000 96 
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der Grafik 


Jetzt müssen wir diese Zeichnung 
in eine Form bringen, die unser 
Computer versteht, also in Bytes. 
Wie auch schon bei den Buchstaben 
und der hochauflösenden Grafik 
sind hier wieder gesetzte und ge- 
löschte Bits in den Bytes die Anzeige 
für »Punkt sichtbar« oder »Punkt 
nicht sichtbar«. Das im VIC-II-Chip 
organisierte Sprite-Programm 
nimmt die Bytes in der im Bild 2 ge- 
zeigten Anordnung wahr. 

Den so gebildeten Block verwaltet 
es in genau dieser Anordnung als 
ein Sprite. Deswegen müssen wir 
uns nun die Mühe machen, unser 
Pentagramm in so ein Bit-Raster ein- 





Zeile Byte binär dez. 
33 00000001 1 
12 34 10000001 129 
35 10000000 128 
36 00000001 1 
13 37 11000011 195 
38 10000000 128 
39 00000001 1 
14 40 10111101 189 
4 10000000 128 
42 00000011 3 
15 43 00011000 24 
44 11000000 192 
45 00000011 3 
16 46 00111100 60 
47 11000000 192 
48 00000110 6 
17 49 11000011 195 
50 01100000 96 
51 00000111 7 
18 52 10000001 129 
53 11100000 224 
54 00000110 6 
19 55 00000000 0 
56 01100000 96 
57 00001100 12 
20 58 00000000 0 
59 00110000 48 
60 00000000 0 
2l 61 00000000 0 
62 00000000 0 


Tabelle 1. Kennzahlen 
für die Berechnung von Sprites 
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Ss 
zufügen. Das ist in Bild 3 geschehen. 
Nun muß dieses Bild in einen Zah- 
lencode übersetzt werden. Überall 
dort, wo ein Bitfeld ausgefüllt ist, 
steht bei der Binärzahl eine |, sonst 
eine Null. Demnach ergeben sich 
die Kennzahlen in der Tabelle 1. 
Dieser Wust an Zahlen legt also 
unser Sprite fest. Diese doch recht 
aufwendige Rechnerei und Planerei 
ist, wenn sie aufmerkamer Leser 
von Computerliteratur sind — meist 
nicht mehr nötig. Obwohl es sicher 
gut ist, das Planen eines MOBs auch 


von Hand zu beherrschen (wie wir 
jetzt!), kann man sich die Arbeit 


Tabelle 2. Grenzposition normaler Sprites 


Sprite No. Register 
0 53287 
1 53288 
2 53289 
7 53294 


Tabelle 3. Zuordnung 
der Sprite-Farben-Register 
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doch mächtig erleichtern durch Ein- 
tippen eines der vielen Sprite- 
Editor-Programme, die es in fast al- 
len Fachzeitschriften wie Sand am 
Meer gibt. Weil hier nicht der 1001. 
Sprite-Editor abgedruckt werden 
soll, dient das anliegende Pro- 
gramm »Sprity« anderen Zwecken. 
(Ein nettes kurzes Listing von H. 
Kunz finden Sie zum Beispiel in der 
Zeitschrift Computer persönlich Nr. 
21, 1983 auf Seite 120). Jetzt müssen 
wirnoch dafürsorgen, daß der C 64 
diese Zahlen irgendwo zugreifbar 
hat, mitanderen Worten: Sie müssen 
in den Speicher gePOKEd werden. 
Im allgemeinen verwendet man da- 
zu eine kleine FOR-NEXT-Schleife in 
der die in DATA-Zeilen abgelegten 
Zahlen gelesen und eingePOKREd 
werden. Wohin packt man die Kenn- 
zahlen? Im Prinzip kann man sie 
überall — wo sie nicht gerade le- 
benswichtige Computerfunktionen 
oder Basicprogramme stören — un- 





Bit- Paar  Farbherkunft 

00 durchsichtig 

01 Sprite Mehrfarbregister 
53285 

10 normale Sprite-Farben- 
Register (53287 bis 53294) 

1 Sprite Merhfarbregister 
52286 


Tabelle 4. Herkunft der 
Bitpaar-Farben im Multicolor-Modus 
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terbringen. Es gibt lediglich zwei 
Dinge, die zu beachten sind: 

a) Die Startadresse muß durch 64 
glatt teilbar sein. (Zum Beispiel 896 
= 14 mal 64 etc.) 

b) Aus Gründen, auf die wir noch zu 
sprechen kommen werden, sollten 
die Sprite-Daten im gleichen 16 
KByte-Speicherabschnitt (siehe vor- 
angegangene Folge) abgelegt wer- 
den, in dem sich das Video-RAM 
befindet, welches bei der Sprite- 
Nutzung angeschaltet ist. 

Damit gibt es im Prinzip 256 Orte 
pro Speicherabschnitt, in denen die 
Sprite-Daten gespeichert werden 
können. Allerdings sind einige Stel- 
len zum Beispiel im Abschnitt 0 (mit 
dem normalen Bildschirm) bei der 
Verwendung von nur wenigen Spri- 
tes besonders bevorzugt, weil man 
keinen Basicspeicher wegnimmt 
und deshalb auch keine Schutz- 
POKESs nötig sind: 


1) 704 — 767 ungenutzte Adressen 
2) 832 — 895 Kassettenpuffer 

3) 896 — 959 Kassettenpuffer 

4) 960 — 1023 restlicher Kassetten- 
puffer und freier Platz. 

Für weitere MOBs muß dann Ba- 
sicspeicher verwendet und dieser 
dann vor dem Überschreiben durch 
Programmtext, Variablen oder 
Strings — wie in Folge 2 gezeigt — 
geschützt werden. Dem Erfindungs- 
reichtum sind allerdings keine 
Grenzen gesetzt. So könnte man bei- 
spielsweise (siehe vorangegangene 
Folge) den Bildschirm an den obe- 
ren Rand des Abschnittes 2 ver- 
schieben und darunter oder dar- 
über Sprite-Daten ablegen. Man 
muß dann zwar auch den Speicher- 
schutz einPOKEn, hat aber trotzdem 
meistens noch mehr als genug Ba- 
sicspeicherplatz. Wenn man nur 
vier Sprites gleichzeitig verwendet, 
insgesamt aber mehrere definiert 
hat, kann man sie alle im 4 KByte- 
Bereich ab $C000 abspeichern und 
bei Bedarf den Sprite, der dran ist, 
mit einer kleinen FOR-NEXT 
Schleife in einen der vier Speicher- 
bereiche (704 .... und so weiter) um- 
laden. Sicher fallen Ihnen noch 
mehr Möglichkeiten ein. Wir wer- 
den uns im nachfolgenden einfach 
mit drei Sprites begnügen und uns 
nur im normalen Abschnitt 0 bewe- 
gen. 

Legen wir alsonunzunächstunser 
Pentagramm in den Bereich 704 bis 
767 und nach 832 bis 895: 

10 FOR I=0 TO 62:READ A:POKE 
704+1,A:POKE 832+LA:NEXT I 

30 DATA hier werden jetzt unsere 63 
Kennzahlen eingegeben. 

bis 60 DATA 


Ran 142 
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Noch ignoriert der C 64 unsere 
Sprites völlig. Es interessiert ihn 
überhaupt nicht, was wir an Ärbeit 
zum Füllen seiner Speicherbauches 
aufgewendet haben. Wir müssen 
ihm noch mitteilen, wo der VIC-I- 
Chip die Sprite-Daten finden kann. 
Weil dieser Chip dazu eingerichtet 
ist, gleichzeitig 8 MOBs zu verwal- 
ten, gibt es acht Speicherzellen, die 
sogenannte Sprite-Zeiger enthalten. 


Na, wo ist er denn? 
Sprite-Zeiger 


Sie befinden sich immer im gleichen 
1 KByte-Bereich, in dem auch der 
Bildschirmspeicher liegt. Weil die- 
ser Video-RAM nur 1000 Bytes be- 
nötigt, sind oberhalb desselben 
noch 24 Bytes frei, von denen die 
obersten 8 als Sprite-Zeiger dienen. 
Wenn also im Normalfall der Bild- 
schirmspeicher von 1024 bis 2023 
geht, dann liegen die Sprite-Zeiger 
von 2040 bis 2047. Verschiebt man 


den Bildschirm, dann werden die 
Sprite-Zeiger mit verschoben. In 
diese Sprite-Zeiger-Bytes POKEn 
wir die Zahlen ein, die mit 64 multi- 
pliziert die Startadresse der Sprite- 
Daten ergeben. In unserem Beispiel 
also: 704/64 = 11 und 832/64 = 13. 

Wenn wir diese Sprite-Zeiger ein- 
geben, nehmen wir automatisch 
gleichzeitig auch die Numerierung 
vor. Dabei gehört zu 
Sprite Nr. 0 der Sprite-Zeiger 2040 
Sprite Nr. 1 der Sprite-Zeiger 2041 
Sprite Nr. 2 der Sprite-Zeiger 2042 
und so weiter. 

Nennen wir also einfach den Spri- 
te, dessen Daten von 704 bis 767 lie- 
gen, Nummer 0 und den anderen 
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Nummer l, dann müssen wir also 


eingeben: 
70 POKE 2040,11:POKE 2041,13 
Damit sind die Sprite-Zeiger gesetzt. 


Anschalten der Sprites 


Wenn Sie jetzt freudig RUN (RE- 
TURN) eingetippt haben, um unsere 
Drudenfüsse zu sehen, werden Sie 
ein langes Gesicht gemacht haben: 
Nix zu sehen! Aber das ist wie beiei- 
ner Lampe: Sie haben den Lampen- 
schirm, die Glühbirme, den Stecker 
eingesteckt und sie leuchtet nicht! 
Deswegen schalten wir sie jetzt ein, 
die Sprites. Der Schalter dafür sitzt 
im Sprite-Kontrollregister 53269 (sie- 
he Folge 1 Tabelle der VIC-II-Chip- 
Register). Dort gibt es für jedes 
MOB ein Bit. Also Sprite Nummer 0 
entspricht Bit Nummer 0 und so wei- 
ter. EinSpriteisteingeschaltet, wenn 
sein Bit auf | gesetzt ist. Wiemanein- 


















wir noch aus der zweiten Folge. 

Spielen wir das hier nochmal an un- 

serem Beispiel durch: Wir wollen 

Sprite Nummer 0 und Sprite Num- 

mer | einschalten, müssen also die 

BitsOund laufden Wert | setzen. Da 

gab es doch die OR-Funktion und ei- 

ne sogenannte Maske: 
XXXXXXXX irgendein binärer 

Inhalt von 53269 

OR 00000011 Maske (= dezimal 3) 
XXXXXX1 Ergebnis (Bits O0 und 

lsind = ]) 

Das ergäbe die Programmzeile: 

80 POKE 53269, PEEK(53269) OR 3 

Will man einzelne MOBs mit der 

Nummer N einschalten, dann emp- 

fiehlt sich folgender Befehl: 

POKE 53269,PEEK(53269) OR (21N) 
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Bild 1. Ein Drudenfuß oder Pentagramm 


Das Ausschalten geschieht durch 
die AND-Funktion. Jedes Bit, das mit 
0 AND-verknüpft wird, wird da- 
durch gelöscht. Wenn wir also Spri- 
te Nummer 1 ausschalten wollen, 
verwenden wir wieder eine Maske: 

XXXXXX11 PEEK(83269), Spri- 
te O und 1 eingeschaltet 
AND 11111101 Maske (dezimal = 253) 
XXXXXX0l Ergebnis: Bit = 0, 
Sprite 1 ausgeschaltet, 
Bit 0 = |, Sprite 0 eingeschaltet. 

Allgemein kann man einzelne 
Sprites also abschalten mit POKE 
53269, PEEK(53269) AND (255-21N), 
wobei wieder N die Sprite-Nummer 
ist. 

Ach, Ihre Geduld wird schon auf 
eine harte Probe gestellt. Wenn Sie 
nämlich bis jetzt alle Programmzei- 
len brav eingegeben und gestartet 
haben, sehen Sie immer noch kein 
Sprite! Aber Sie müssen dem MOB 
noch sagen, wo er erscheinen soll! 


Schon wieder ein Koordi- 
natensystem: 
Ort der Sprites 


Vor den Erfolg haben auch die 
Commodore-Softwareplaner den 
Schweiß gesetzt! Denn nicht genug 
damit, daß wir den Bildschirmschon 
im Normalmodus in X-Richtung, in Y- 
Richtung in 25 Positionen und im Bit- 
Map-Modus in X-Richtung in 320, in 
Y-Richtung in 200 Positionen aufge- 
teilt finden, jetzt kommt noch eine 
Einteilung, die sogar noch über den 
sichtbaren Bildschirm hinausreicht! 
In Bild 4 sehen wir diese Aufteilung 
in 512 horizontale und 256 vertikale 
Koordinaten. 

Für den Ort eines Sprites ist — wie 
in Bild angedeutet — die linke obere 
Ecke des Spritedefinitionsfeldes 
entscheidend. Also auch dann, 
wenn diese Ecke (wie in unserem 
Pentagramm) unsichtbar. So hat das 
im Bild gezeigte MOB die X- 
Koordinate 128 und die Y - Koordina- 
te 120. Diese X- und YWerte muß 
man nun in die zur Sprite-Nummer 


Ausgabe 8/August 1984 


G 64-Kurs 
















III 
- 
5 Tamm nn 


12 
el Bi 
u les] 
15 
16 | a 
17 
18 
19 [=] 
aan 
1 Pe 


gehörigen Register einPOKEn. Da- 
bei handelt es sich um folgende 
Speicherstellen: 

X-Position von Sprite 0 : 53248 
Y-Position von Sprite 0 : 53249 


X-Position von Sprite 1 : 53250 
Y-Position von Sprite 1 : 53251 


und so weiter bis 
X-Position von Sprite 7 : 53262 
Y-Position von Sprite 7 : 53263 
Um nun also endlich unser Sprite 
Nummer 0 sichtbar zu machen, ge- 
ben wir ein: 
100 POKE 53248,128:POKE 53249,120 
So! Jetzt tippen Sie ein RUN (RE- 
TURN) und endlich: Da ist unser 
Pentagramm. Gefällt es Ihnen? Spri- 
te 1, daszweite Pentagramm, sollam 
rechten Bildschirmrand auftauchen, 
also ungefähr beiX = 266 und bei Y 
= 130. Deswegen müßten wir aber 
in die entsprechende X-Positions- 
Speicherstelle für Sprite 1 eine Zahl 
größer als 255 einPOKEn! Wenn 
Sie's versuchen, meldet der Compu- 
ter natürlich einen ILLEGAL QUAN- 
TITY ERROR. Geht also nicht! An- 
scheinend war das bisher noch 
nicht verzwickt genug. Jetzt müssen 


wir nämlich mal wieder das Hexa- 
dezimalsystem bemühen (die Sech- 


















































Dezimal 266 ist hexadezimal 
$010A. Jetzt zerteilen wir diese Zahl 
wieder in das LSB und das MSB: 


$01 0A 
MSB LSB 
—1 =0A 
und rechnen wieder zurück ins De- 
zimalsystem: 
MSB = | 
LSB = 10 

Rechnen Sie mal nach: Das MSB 
kann auch bei der höchsten X- 
Position nie größer als 1 werden. Es 
gibt also nur zwei Fälle: Ist die X- 
Position größer als 256, dann ist das 
MSB |, sonst ist es 0. 

Deswegen speichert man die 
MSBs aller 8 Sprites in nur einem By- 
te. Ebenso wie beim Kontrollregister 
für das An- und Ausschalten gehört 
auch hier zu jedem Sprite ein Bit, al- 
so: Bit 1 gehört zu Sprite | und so wei- 
ter. Wenn nun also die X-Koordinate 
von Sprite 1 266 ist, dann ergibt die 
Aufspaltung, wie oben gezeigt, MSB 

= lund LSB = 10. Das Register für 
die MSBs ist Speicherstelle 53264. 
Die 10 (das LSB) wird also in die nor- 
male Speicherstelle für die X- 


zehnfingerlinge, erinnern Sie sich: Position gePOKEt. DasMSB( = l)ist 


Folge 2). 
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also Bit 1 (weil Sprite 1) von Speicher- 
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Abschnitt 3 





































stelle 53264. Hier ist also wieder ei- 
ne OR-Operation nötig. Die Y 
Position wird ganz normal eingege- 
ben. Es ergibt sich also die Pro- 
grammzeile: 

110 POKE 53250,10:POKE 53264, 
PEEK(53264)OR(21]): 

POKE 53251,130 

Wenn Sie jetzt einen Schwarzweiß- 
Monitor haben, sehen Sie nach RUN 
(RETURN) trotzdem nur unser Sprite 
Nummer 0. Farbmonitor-Eigner be- 
wundern schon jetzt Sprite Nummer 
1. Warum, das wird uns gleich noch 
beschäftigen. 

Welche Koordinaten eines Sprites 
sind eigentlich möglich, und was 
sieht man dann? Um das zu erfor- 
schen, bauen wir uns ein Primitiv- 
Sprite: 

20 FOR I = 0TO 62:POKE 1-+896, 
255:NEXT I:POKE 2042,14: 
REM SPRITE NR. 2 

Dann schalten wir ein: 

90 POKE 53269,PEEK(53269) OR (12) 
und bauen eine Abfrage ein für die 
Position: 

130 INPUT"SPRITE 2:XY=";XY:IF 
X=—1 THENEND 


ka 1AR 
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Für die X-Position soll der Computer 
noch die Umrechnung in LSB und 
MSB für uns durchführen: 

140 X1=INT(X/256):X2= X—256*X1 
Dann POKEn wir diese Koordinaten 


ein: 
150 POKE 53252,X2:POKE 5253,Y: 
IF Xl=1 THEN POKE 53264,PEEK 
(53264)OR(212) 

Wenn die X-Koordinaten kleiner 
als 256 sind, also das MSB = 0 ist, 
muß es natürlich gelöscht werden: 
160 IF Xl=0 THEN POKE 
53264,PEEK(53264)AND(255— 2127) 

Schließlich lassen wir uns außer 
demSprite Nummer2auchnochdie 
eingegebenen Koordinaten zeigen 
und kehren zur Abfrage zurück: 
170PRINTCHR$(47),"x="x,"y="y: 
GOTO 130 

Wenn Sie jetzt starten, können Sie 
alle möglichen Positionen für X und 
Y eingeben. Versuchen Sie doch 
malX = 265, Y = 130. Da ist auch für 
die Schwarzweiß-Seher (ich bin 
auch einer) unser Sprite Nummer 1 
zu erkennen. Warum, dazu kommen 
wir noch. Wenn Sie genug auspro- 
biert haben, dann geben Sie für X 
jetzt— | undirgendeinen Y-Wertein 
und das Programm ist beendet. Ver- 
mutlich haben auch Sie festgestellt, 
daß man unseren Testsprite ganz all- 
mählich über den sichtbaren Bild- 
schirmrand hinauswandern lassen 
kann. Es ergeben sich so die Grenz- 
koordinaten in Tabelle 2: 
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system 
g.Kooreinaten 
gig 4, SpM 


Die in der Tabelle 2 angegebenen 
Werte gelten allerdings nur für die 
normalen Sprites. Also gibt es auch 
noch anormale Sprites? Ja, die gibt's 
auch. Aber wir wollen der Reihe 
nach vorgehen. Wir können jetzt 
Sprites entwerfen, Sprite-Zeiger set- 
zen, MOBs an- und wieder abschal- 
ten und sie an die richtige Stelle set- 
zen. 


Mal wieder Farbe: 
Diesmal die von Sprites. 


Eines haben wir bisher total ver- 
gessen: Welche Farbe soll unser 
Sprite haben und wie geben wir sie 
ihm? Auch hierfür gibt es natürlich 
wieder Register, die Sprite-Farben- 
Bealaet und zwar dieinder Tabelle 


18 : RE 

268 : REM" 

38 : REM" 

48 : REM" MANFRED WALTER THOMA 
58 : REM" 
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In diese Register POKEt man.die 
Farbe (Kennzahlen 0 bis 15) ein, in 
der der MOB erscheinen soll. Te- 
sten Sie mal: Ändern wir Zeile 130. 
DortsollinderIF-THEN-Anweisung 
nach THEN anstelle von END jetzt 
stehen 180. Diese Zeile 180 schaltet 
das vorerst ausgediente Sprite 2 


aus: 
180 POKE 53269, PEEK(53269) AND 
(255—212) 

Damit eröffnen wir uns die Farb- 
eingabemöglichkeit mit: 
190 PRINT CHR$(47:INPUT'SPRI- 
TE 0,SPRITE 1 FARBEN”; 

FLF2:IF Fl=-\ITHEN210 

Schließlich POKEn wir die Farben 
in diezu den Sprites gehörigen Regi- 
ster: 

200 POKE 53287,Fl:POKE53288, 
F2:GOTO190 
210 END 

Jetzt können Sie, bis Sie schließlich 
für Fl mal —1 eingeben, allerlei Far- 
ben durchprobieren. Wir erkennen 
nun auch, daß bislang Sprite 1 für 


Kir 


68 : RE Me 
78 POKES3288,08:POKES3281,8:POKESAB,L:PRINTCHRS(147); 


323 RE 

88 : REM" DATEN FUER DIE DREI SPRITES r 
98 : RE EEE EEE EEE EEE EEE EEE EEE EEE REITEN EEE 
180 DATA8,08,0,0,0,8,0,0,0,0,0,0,0,14,0,0,17,8,0,32,128,0,64,64,8,155,32,9,128 
118 DATA32,0,132,32,0,132,32,0,145,32,0,78,64,0,32,128,0,31,0,0,0,0,0,0,0,8,0 
128 DATAD,8,0,0,0,8,8 

i38 DATA8,0,0,8,0,0,0,0,8,0,0,0,0,14,0,0,17,0,0,32,128,0,64,64,8,155,32,0,128 
148 DATA32,0,132,32,0,132,32,0,128,32,0,78,64,0,64,64,0,32,128,0,31,0,0,0,0,0 
158 DATA8,8,8,8,0,8,8,0 

168 DATAB,08,08,0,0,0,0,8,0,0,0,0,0,14,0,0,17,0,8,32,128,0,6+4,64,0,155,32,0,128 


178 DATA32,0,132,32,0,132,32,0,128,32,0,78,64,0,81,64,0,64,64,8,32,128,0,31,0 


188 DATAO,0,8,8,8,0,0,0,8 
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Schwarzweiß-Seher nicht erkenn- 
bar war, weil seine Farbe keinen 
Kontrast zur Hintergrundfarbe ge- 
bildet hat. 

Wem’s noch nicht bunt genug war 
bisher, der hat auch hier bei den 
Sprites die Möglichkeit, den 
Mehrfarben-Modus zu verwenden. 
Während im bisher gebrauchten 
Modus jedes Sprite-Definitions-Bit 
entweder 0 (=Hintergrundfarbe) 
oder | (Farbe des zum Sprite gehöri- 
gen Sprite-Farb-Registers) sein 
konnte, zählen — wie auch sonst im 
Mehrfarbenmodus — wieder Bit- 
Paare. Dabei stammt dann die jewei- 
lige Farbe aus den in Tabelle 4 an- 
gegebenen Registern. 

Unser Drudenfuß sieht somit dann 
aus wie in Bild 5 gezeigt. 

Das wollen wir noch einmal auf 
dem Bildschirm ansehen. Wir 
schreiben ab Zeile 190 neu: 

190 PRINT CHR$Q47):INPUT"MOBI, 
MOB2,MULTCOLL,MULTCORL2";FI, 
F2,F3,F4IFFIL=—1THEN 220 

200 POKE 53287,F1:POKE53288,F2: 
POKE 53285,F3:POKE 53286,F4 

220 END 

So läuft natürlich noch nichts Neu- 
es, denn der Mehrfarben-Modus 
muß noch angeschaltet werden. 
Auch dazu gibt es wieder ein Reqi- 
ster: 53276. Wie bei einigen ande- 
ren Sprite-Registern gehört auch 
wieder zu jedem MOB das entspre- 
chende Bit, also zu Sprite 1 das Bit 1 
und so weiter. Wenn dieses Bit auf ] 
gesetzt ist, ist für das dazugehörige 
Sprite der Mehrfarb-Modus ange- 
schaltet. Man kann sie also einzeln 
oder zusammen — ganz wie's be- 
liebt — im Normal-Modus oder im 
Muticolor-Modus betrachten. Wir 
schalten Sprite O0 und Sprite linden 
Mehrfarb-Modus mit Zeile 
210 POKE 53276,PEEK(53276)OR3: 
GOTO 190 

Will man nur Sprite Nummer N 
umschalten, dann verwendet man 


Das Zurückschalten in den Nor- 
malmodus geschieht dann durch 
Löschen der entsprechenden Bits: 
POKE 53276, PEEK(53276)AND 
(255—21N). 

Auchhier habe ich das Programm 
so gebaut, daß man durch Eingabe 
von —| und irgendwelchen drei an- 
deren Zahlen aussteigen kann. Im 
Verlauf des Probierens werden Sie 
bestimmt gemerkt haben, daß man 
Sprites, die für den Mehrfarben- 
Modus gedacht sind, speziell kon- 
struieren sollte unter Berücksichti- 
gungderBit-Paar-Zusammenstellun- 





wie gehabt: POKE 53276, 

PEEK(53276)OR(2N). 

198 RE 

200 : REM= EINLESEN DER SPRITES UND TITELBILD u. 
218 : RE 

220 PRINTTABAA2I"S PR I T ve 


248 PRINT:PRINT:PRINT:PRINT 
250 PRINTTAB<C1IY"BY" 

268 PRINTTAB(CI2)"MANFRED HM. THOMA" 
278 PRINTTAB(12)"2182 HAMBURG 93" 
288 PRINTTAB(12)'" ERNASTRASSE 18" 


298 FORI=13464T013#64+62:RENDX:POKEI,X: NEXT 


388 POKE2848,13: 


310 FORI=14#64T014464+62:READX:POKEI,X: NEXT 


328 POKE2841, 


414: 
330 FORI=15*64T015*64r62:RENDX:POKEI,X: NEXT 
15: 


348 POKE2842,15: 
350 4=53248: 
368 POKE V+39,1: 


REM" SPRITE 8 AUS BLOCK 13 “r 
REM#* SPRITE 1 AUS BLOCK i4 
REMee SPRITE 2 AUS BLOCK 15 


REMM® STARTADRESSE DES VICE 2 CHIP»* 
REMM® FARBE FUER SPRITE 8 “r 


378 POKE V+40,1: REM®® FARBE FUER SPRITE i * 
388 POKE Y+41,4: REM#® FARBE FUER SPRITE 2 “ 
Das Programm »Sprity« 
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gen. Unser Drudenfuß gefällt mir im 

Normal-Modus jedenfalls besser. 
Deswegen schalten wir in Zeile 

220 lieber den Mehrfarben-Modus 


aus: 
220 POKE 53276,PEEK(53276) AND 
252 


Anormale Sprites? Ge- 
quetschte und gezerrte 
MOBs 


Die normalen Sprites bestehen 
aus 24 x 2] Bildpunkten und haben 
auf dem Bildschirm eine Ausde- 


hnung von zirka drei Zeilen mal drei 
Spalten. Für einige Effekte ist es 
ganz nett, sie in ihrer Größe verän- 
dern zu können. Genau das ist mög- 
lich, und zwar in X-Richtung, in Y 
Richtung oder in beide Richtungen 
gleichzeitig. Das Merkwürdige an 
diese Sache ist — außer dem 
manchmal recht verzerrten Ausse- 
hen —, daß die gleiche 24 mal 21 Pi- 
xelabgebildet werden, nurjedesPi- 
xel ist vergrößert. Wenn sowohl in X- 
als auch in YRichtung vergrößert 
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wurde, ist einfach jeder Bildpunkt 06 roxe ur2s.r. REmem SPRITES 8-2 IN RICHTUNG xx 
viermal so groß wie vorher. Auch +18 Pokeu,160:PoKEu+1,160: REM#M X-V-KOORDINATEN SPRITE 0 »% 
: ; 0): ; 420 POKEU+2,168:POKEU+3,160: REM#®= X-V-KOORDINNTEN SPRITE A 
hier geschieht das natürlich wieder 4308 POKEU+4,160:POKEU+S, 168: REM#® X-V-KOORDINATEN SPRITE 2 x" 
über Kontrollregister, von denen je- 440 FOR 1-1 T0i6 
a ; ; ; KEU+21,1:FOR I1={T0308: NEXT: REM#® EINSCHALTEN NUR SPRITE 8 ws 
des Bit wieder zu einem Sprite glei- 68 PokEu+21.2:FOR I1-1T0288: NEXT: REM®® EINSCHALTEN NUR SPRITE 4 #** 
cherNummergehört.DieVerdoppe- 478 PoKEu+21,4:FOR II=4T0488:NEXT: REM=#* EINSCHALTEN NUR SPRITE 2 "= 
; : : : 480 NEXTI ° 
lunginX-Richtung wird durcheinel 96 poxeus21,o: REM#® AUSSCHALTEN ALLER SPRITES »*# 
im zum Sprite gehörigen Bit des Re- ER 
gisters 53277, die in Y-Richtung auf 528 poxe se, 128: REM  REPEAT FUER ALLE TASTEN m 
die gleiche Weise im Register 53271 5se 3 REIBERHREHHEHHRREHHEHEHEHHREHHERHREHHERHHEEHEEHREHHEERREEREHEEEE 
geschaltet. Wenn wir also unser 54 Reh TNSTENBELEGUNGSERKLAERUNG .. 
Sprite Nummer O in X-Richtung ver- 55 erınıraBcssBehzounssimuarzon" 
doppeln wollen, dann geben wir 588 ea SL IWER Sen. 
noch ein: 598 PRINT:PRINT" —" 
608 PRINT"I Fi | BEHEGEN SPRITE 8 IN +X RICHTUNG"; 
230 POKE 53277,PEEK(5327N)ORl: sie print" m— ; 
FOR 1= 0T02000:NEXT I = RAN F3-1  BEHEGEN SPRITE 8 IN -X RICHTUNG"; 
Dann sehen wir uns das nach ei- en ERINT FS I  BEHEGEN SPRITE 8 IN +Y RICHTUNG"; 
: : RINT" 
en Pause noch in Y 660 PRINT"I FT | BEHEGEN SPRITE 8 IN -Y RICHTUNG"; 
Tier ; 
24 OL 277 PEEK(332 680 PRINT:PRIKT" —" 
0 POKE 53277,PEEK(63277JAND sso prınt"ı F2 I BEHEGEN SPRITE 4 IN +X RICHTUNG"; 
254:POKES53271,PEEK(53271)OR!: 2 ae a 
FOR I=0 TO 2000:NEXT I ber er SPRITE 1 IN -X RICHTUNG"; 
Jetzt vergrößern wir noch in beide £ red F6 |  BEHEGEN SPRITE 1 IN +V RICHTUNG"; 
Richtungen: ı0 PRINT" F8 I BEHEGEN SPRITE 1 IN -Y RICHTUNG"; 
m 
250 POKE 53277,PEEK(83277) ORT © 1778 PRIKT:PRINTTABCALI"HEITER BITTE TASTE" 
Wie Sie sich denken können, 7se sETAas: IFas=""THEN7sE 
stimmt jetzt die Positionierung die- 28 PRINT'USVERKLEINERN DER SPRITE" 
0 , © PRINT'NACH DRUECKEN DER TASTELIC U JmKANN MIT DEN"; 
ser vergrößerten Sprites auf dem s8ı1® PRINT"FUNKTIONSTASTEN IN +X,-X UND +4,-4 VER-"; 
sichtbaren Bildschirmteil nicht 538 peınrwaneen en“ 
mehr. ‚Um das zu testen, bemühen s«+se PRINT"NACH DRUECKEN DER TASTELIC F >BKANN MIT DER"; 
wir wieder unser Testsprite Num- seo prınt"oERT WERDEN.MIT IF2C FARBE FÜER SPRITEL.", 
mer 2 und vergrößern in beide Rich- 870 PRINT/LRMINTERGRUNDFARBE" i 
\ "DURCH DRUECKEN D. TASTE H IEHIRD DIE" 
tungen: 890 PRINT"RILDSCHIRMFARBE GERENDERT." 
120 POKE 53277,PEEK(5327NOR4: ses PRINTLLIENDE" 
POKES3271,PEEK(83271)OR4 2 ne Ss INSTEUS EDER 
Wenn wir nun das Programm mit 930 PRINT"NACH DRUECKEN DER TASTELIC O JEKANN MIT DEN"; 
RUN (RETURN)starten, tauchtunser 950 prınt«spritet EIn- BZW, AUSGESCHALTET WERDEN" 
Test-Sprite in vergrößterter Formauf ee rrıntu ÜMEITER BITTE TASTE" 
und wir können es wieder an veI- see rrını re 
schiedene Orte auf dem Bildschirm 236 PRinTspe«333" ux-sp.um"; 
packen. FürdiesesinbeideRichtun- iese prıntspccaay" er aus 
gen verdoppelte MOB findet man 4928 printspcca3>" er 
dann die Grenzwerte in Tabelle 5. ses PRINTSPc<339" 1 150 -"; 
Will man also ein solchermaßen 4958 pRINTSPe«33>7 way sp. tet; 
5 i NTSPC<(33)" | 150 €"; 
vergrößertes Sprite langsam aus jere PRINTsPcca3>" LIFARBEO"; 
dem Bildschirm ziehen lassen, dann 1980 PRINTSPcc3s2" 1 4 +"; 
: : : el 1098 PRINTSPC<33)'" IRFARBEI="; 
ist dasnichtnach links möglich, weil ı100 prıntspccasy9" I de"; 
Nr ; _ A418 PRINTSPCC33)" [EX-DEHNm"; 
selbst bei X=0 der Sprite noch teil- 1135 ESEL et: 
weise sichtbar ist. 1138 PRINTSPCC33)" LiV-DEHNE"; 
Jetzt wissen wir eigentlich fast al Ass Wrrrarc rd 
2 ; = 1150 PRINTSPC<33)*" LISCHIRMm="; 
les, wasmitdem einzelnen Spritezu- ı160 PRINTSPC«Ca33" I 0er, 
5: ; IT 1178 PRINTSPC<33)" IE 
sammenhängt. Wenn Sie ein sich ‚188 prıntspecas)" L3ONJOrFm"; 
veränderndes Sprite darstellen wol- ı138 PRINTSPC<33>" 1250: on; 
: Tan al: 1200 PRINTSPC(33)" LiSi:w ON"; 
len, so ist das zum Beispiel möglich, 1318 PRINT'NA SPRITY ";CHRSCAS) 
indemallezuzeigendenBewegungs- 1220 rokeu,se: 
: ; ; 1238 POKEU+2,158 
phasen als Spritemuster im Spei- 1548 rokeus21.3 
cherabgelegtwerdenunddannper 1258 n=PEEK<U+30>: REM#® LESEN/LOESCHEN KOLLISONREGH« 
} j 1260 : RE Meet 
Programm der Sprite-Zeiger auf 1255 : Res TASTATUR ABFRAGE (GET) „- 


denjeweils aktuellen Bewegungszu- 1288 : REmMMeeSEOEHEHERABOEHEROSHRHRHHEHEHEHHHHEHDHEHEHEHEHHHHOHEEREHEEE 
: A 1298 GETNAS: IFNS=""THENL1298 
stand umgeschaltet wird. So könnte IF AS="ETHENPRINTCHRSCAATI :POKEU+21,0:END 


ae \ > = 1300 

man wie in Bild 6 die Abläufe A bis ısıe ır ns="H"THEN 1738: REM#* AENDERN DER BILDS.FARBE *%* 

; ; 43228 IF AS-"U"THEN 4998: REM=* SPRITES KLEINER/GROESSER #%* 

G im Speicher ablegen und zumBei- 1338 ır ns="FTHEN 4030: REM## SPRITES FARBE ur 

spiel den Sprite-Zeiger für Sprite 3 1348 IF AS="O"THEN 2210: REM#=# SPRITES EIN/AUS .. 

1350 A=nSCcAs>-132: REM®# UMRECHNEN FUNKTIONSTASTEN *%* 

zuerst auf das Muster A, dannnach 1368 ıraco oR A»BTHEns280: REM= KEINE FUNKTIONSTASTE nr. 
entsprechender Verzögerung auf ısre om n cosuB 4490,1520,1550,1580,1610,1640,1670,1700 

1380 : RE 
Muster B, dann C, D, E, F, G und 1390 : rem KOLLISIONS ABFRAGE w 


schließlich wieder A richten. Wenn ı400 : re 
die einzelnen Spritemuster gut ge- Das Programm »Sprity« (Fortsetzung) 
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1418 
1428 
1438 
1448 
1458 


1468 : 
1478 : 
1480 : 


1498 
1508 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1608 
1618 
1628 
1638 
1640 
1658 
1668 
1678 
1688 
1698 
1700 
1718 
1728 


1730 : 
41748 : 


1758 
1768 
1770 
1788 
1798 
18008 





IF PEEK(UV+38)=8 THEN 1298 

PRINT'S “tt KOLLISION !t!" 

FOR I1=8 TO 168:NEXT 

PRINT'’S ” 

60T0 1298 
RE 
REMMm SPRITE BEWEGEN X/Y-KOORD. r 
RE 

WE=PEEK(U): IFWE=255 THEN RETURN 


WE=HE+1:POKEU, HE 

2=1:60SUB2378: RETURN 

HE=PEEK(U): IFWE=ATHEN RETURN 
HE=WE-1:POKEU,WE 
2=1:60SUB2379:RETURN 
HE=SPEEK(U+1): IFHE=ATHEN RETURN 
HE=HE-1:POKEU+L,WE 
2=3:60SUB2378: RETURN 
WESPEEK(U+1): IFHE=198THEN RETURN 
HE=WE+1:POKEU+1,HE 
2=3:60SUB2378:RETURN 
HE=PEEK(V+2): IFWE=255 THEN RETURN 
HE=HE+1:POKEU+2,WE 
2=5:60SUB2378:RETURH 
WE=PEEK(U+2): IFHE=ATHEN RETURN 
HE=WE-1:POKEU+2,HE 
2=5:60$SUB2378: RETURN 
HE=PEEK(U+3) : IFWE=ATHEN RETURN 
HE=WE-1:POKEU+3,WE 
2=7:6G0SUB2378:RETURN 
HE=PEEK(U+3) : IFWE=LISTHEN RETURN 
WE=HWE+1:POKEU+3, WE 
2=7:60SUB2378:RETURN 


RE He EEE RENNER ER 
REHMM# HINTERGRUNDFARBE (BILDS.) 
: RE 
HF=PEEK (53280) 
IF HF=255 THEN POKES3288,0:POKES3281,8:WE=8:2=17:60SUB2378:60T0 1298 


POKES32808,HF+1:POKES3281,HF+1 
HE=HF+1-240:2=17:60SUB2378 
60T0 1298 


18106 : 
1828 : 


18308 : 
1840 : 
i850 : 


1868 
18708 
1888 
1890 
1908 
1918 
1920 
1928 
1948 
1956 
1960 
1978 
1988 


1998 : 
2888 : 
2818 : 


2020 
2838 
20-48 
2850 
20608 
2878 
2088 
2098 
2100 
24118 
2126 
2138 
2148 
2158 
2168 
2170 
2188 
2190 
2200 


2218 : 
2220 : 
2230 : 


2240 
2250 
2268 
2278 
2288 
2298 
23808 
2318 
2328 
2330 
2348 
2358 
2360 
2378 
2380 
2398 
2488 
2418 


RE MEERE ERHEBEN 
SPRITE FARBEN -- 
RE test nett EEE DR 
FOR I-1 T058 


GETAS 

IFAS=CHINSCL33) OR AS=CHRSCISTITHEN 1910:REM®# PRUEFEN >Fi<C ODER >F2<C 
NEXT I 

60170 1298 

Fi=PEEK(CU+408) :F2=PEEK (U+39) : REM#=# AKTUELLE FARBEN SPRITE O+ims 


IF AS=CHRS(A137) THEN 1960 

IF F?=?SSTHEN POKEU+39,8:HE=8:2-9:G0SUR2378:G60T01290 

POKE V+39,F2+1 HE=F2+1-248:2=9:60SUB2378 

60T01298 

IF Fi=255THEN POKEV+40,0:WE=8:2Z=11:60SUB2378:60T01298 

POKE Vr48,Firi:HE=Firi-248:2=11:60SUB2370 

60T01298 

RE EEE EEE 
REM#® VERKLEINERN DER SPRITES 
RE 

FOR I=1 TO 188 

GEIAS: IF AS=""THEN2868 

A=NSC(ASI-132 

IF n>0 AND A<I9 THEN 2870 

NEXT 1:60T0 1298 

DX=PEEK(V+29) :DY=PEEK (U+23) 

OK A GOTO 2100,2110,21208,2130,21-40,2158,2160,2178 
GOTO1268 

DX=DX OR 1:60T02186 

DX=DX AND 254:60102180 

DY=DY OR 1:607T02198 

DY=DY AND 254:60T02198 

DX=DX OR 2:60T02188 

DX=DX AND 253:60T02188 

DY=DY OR 2:607T02198 

DY=DY AND 253:60T02198 

POKE V+29,DX:WE=DX-4:2=13:60SUB 23790:60T01298 

POKE Y+23,DVY:WHE-DY-A4:2=15:60SUB 2370:60T01298 
60701298 

RE Miet eK RENNER 
REM" SPRITES EIN/AUS SCHALTEN 
RE 

FOR I=1 TO 188 

GETAS:IF AS=""THEN2288 

IFASSCHRSCAIZITHEN 2298 

IFAS=CHRSCAITITHEN 2310 

NEXT 1: GOTO 1298 

IFCPEEK(U+2L)ANDLISLTHENPOKEU+21 ,PEEK(U+21)-1:60T02330:REM=BIT 8 GESETZT 7m 
POKEU+21,PEEK(U+21)+1:60702348 
IFCPEEK(U+21)AND2)=2THENPOKEU+21,PEEK(U+21)-2:60T02358:REM®BIT 1 GESETZT ?= 
POKEU+21,PEEK(V+21)+2:60T02368 

POKE211,37:POKE214,20:SYS58648: PRINT''OFF':GOTO1298 
POKE211,37:POKE214,20:SYS586-48: PRINT’ ON':GOTOL2SB 
POKE241,37:POKE214,21:SYS58648:PRINT"OFF'":GOT01298 
POKE211,37:POKE21-4,21:5YS58648:PRIKT" ON':GOTO1298 

3 RE MERKE EEE RI EEE 
:REM##* CURSOR SETZEN (X-Y) ”” 
:RE 

POKE211,33:POKE214,2:SYS58648:PRINTLEFTSCDRS ,I3+LEN{STRSCHEII);HE:RETURN 


READY. 
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macht und die Verzögerungsschlei- 
fen richtig abgestimmt sind, kann so 
eine Art Zeichentrickfilm ablaufen, 
der nun auch noch durch die ande- 
ren bisher gelemten Sprite-Eigen- 
heiten (Vergrößern, Position, Farbe 
etc.) veränderbar ist. Wie Sie un- 
schwer erkennen, sind Ihrer Phanta- 
sie keine Grenzen gesetzt, und ich 
würde mich freuen, von Ihnen mal 
so einen witzigen Trickablauf sehen 
zu können. Auf einem ähnlichen 
Prinzip basiert auch ein Programm 
von Hans Grigat in Happy-Compu- 
ter, Ausgabe Nummer 1] (1983), Seite 
99 ff. Überhaupt lohnt es sich, sich 
dieses Programm mal genau anzu- 
sehen, weil hier die anfangs er- 
wähnte Möglichkeit der Sprite- 
Daten-Verschiebung genutzt wurde, 


Wer hat Vorfahrt? 
Prioritäten 


Wir wollen uns jetzt noch um die 
Beziehung von Sprites zu ihrer Um- 
welt (also zu anderen Sprites 
und/oder zu Zeichen auf dem Bild- 
schirm) kümmern. Sie erinnern sich 
vielleicht an unseren Versuch, unser 
kleines Test-Sprite über den Bild- 
schirm zu bewegen und an ein Er- 
gebnis davon, nämlich, daß auch 
Schwarzweiß-Sehern plötzlich bei 
Eingabe der abgedruckten Bild- 
schirmposition das Sprite Nummer 1 
sichtbar war. Wenn also — wie in 
diesem Fall — zwei Sprites sich 
überdecken, welches von beiden 
wird dann gezeigt? Siehe dazu das 
Bild 7, aufdem die Situation abgebil- 
det ist. Wirsehen da: an den Stellen, 
wo Sprite 1 Bits mit dem Wert 0 vor- 
liegen hat, ist Sprite 2 zu sehen. Wo 
aber der Bitwert des Sprite 1 gleich 
l ist, wird Sprite 2 durch Sprite 1 ver- 
deckt. Das MOB 1 hat eine höhere 
Priorität als MOB 2. Der VIC-II-Chip 
organisiert die Prioritäten von Spri- 
tes untereinander also in folgender 
Weise: Höchste Priorität hat Sprite 0, 
dann folgt Sprite 1, Sprite 2 und so 
weiter bis zum Schlußlicht Sprite 7. 

Wenn Sie also Programme planen, 
in denen Sprites aneinander vorbei- 
ziehen sollen, denken Sie daran, 
daß an diese Vorfahrtsregelung 
nichts zu ändern ist. Unter Umstän- 
den muß man dann die Sprite- 
Zeiger umwechseln, um die Prioritä- 
ten umzukehren: Man macht dann 
beispielsweise für den Augenblick 
der Überschneidung aus Sprite 7 
zum Beispiel Sprite 1 und umge- 
kehrt. 

Eine andere Vorfahrtsregelung 
gilt, wenn Sprites und Bildschirmzei- 
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len (oder Bit-Map-Darstellungen) 
aufeinandertreffen. Hier haben wir 
ein Kontrollregister zur Hand (mal 
wieder eines), Speicherstelle 
53275, wo wieder jedem Sprite ein 
Bit entspricht (also Bit 0 entspricht 
Sprite 0 und so weiter). Wenn nun 
dieses Bit den Wert 0 hat, steht das 
dazugehörige MOB vor den Bild- 
schirmdarstellungen, andernfalls 
verkrümelt es sich dahinter. 

Das wollen wir uns mal ansehen! 
Starten Sie das Programm nochmal 
und wenn Sie an die Farbabfrage 
kommen, geben Sie dem Sprite O die 
Farbe 0 (= schwarz). Beenden Sie 
das Programm in der angegebenen 
Weise und wenn sich READY ge- 
meldet hat. LISTen Sie das ganze. 
Jetzt steht unser schwarzes Penta- 
gramm vor dem Listing. Geben sie 
nun im Direktmodus ein: 

POKE 53275,1 (RETURN). Siehe da: 
Sprite 0 versteckt sich hinter demLi- 
sting. 

Wir können also zusammenfas- 
sen: Überall dort, wo auf dem Bild- 
schirm (durch Buchstaben oder an- 
dere Zeichen) ein Bit gesetzt ist, ver- 
schwindet dahinter ein gegebenen- 
falls vorhandener Sprite-Bildpunkt 
(wenn natürlich das zum Sprite ge- 
hörige Bit im Register 53275 gesetzt 
ist). Nur dort, wo auf dem Bildschirm 
ein Bit nicht gesetzt ist (also 0 ist), 
sieht man einen dort vorhandenen 
Sprite-Bildpunkt. 

Etwas komplizierter liegen die 
Verhältnisse, wenn wir das MOB im 
Mehrfarben-Modus vorliegen ha- 
ben. Hier werden nämlich auch 
Bildschirmbitpaare 01 (von Zeichen 
oder Bit-Map-Darstellungen) genau- 
so behandelt wie Bitpaare 00. Das 
heißt, auch an solchen Stellen wird 
ein eventuell vorhandenes Sprite- 
Bitpaar dargestellt. 


Zusammenstöße: 
Kollisionsregister 


Erfreulicherweise haben die 
Software-Planer des C 64 auch zwei 


IAN mıRram 





E 


999 


Bild 
6. Ein Tricktiim-g RE 


Möglichkeiten vorgesehen, Zusam- 
menstöße in Registern abzufragen. 
Weil es zwei Sorten von Zusammen- 
stöße gibt (Sprite kollidiert mit Sprite 
und Sprite kollidiert mit Zeichen), 
kann man zwei Register abfragen. 
Da hätten wir zunächst das Sprite- 
Sprite-Kollisions-Register 53278. 
Auch hier gehört zu jedem Bit ein 
Sprite, wie beiden anderen Kontroll- 
Registern. Von einem Zusammen- 
stoß spricht man in Sprite-Kreisen 


Sprite 2 


Sprite 1 


Bild 7. Sprite 1 überdeckt Sprite 2 


immer dann, wenn undurchsichtige 
Teile der MOBs aufeinandertreffen. 
Überlappen sich nur die Teile, de- 
ren Bits bei der Sprite-Definition auf 
0 gesetzt wurden, so zählt das nicht 
als Kollision. Die Bits der Sprites, die 
in den Zusammenstoß verwickelt 
sind, werden auf | gesetzt, zum Bei- 
spiel erzeugt ein Zusammenstoß von 
Sprite O0 mit Sprite 1 folgenden Inhalt 
des Registers 53278: 00000011 = de- 
zimal 3. 

Wenn in einem Supercrash acht 
Sprites kollidieren, steht im Sprite- 
Sprite-Kollisionsregister 255. Übri- 
gens werden auch Zusammenstöße 
registriert, die außerhalb des sicht- 
baren Bildschirms liegen (siehe Bild 


4). 

Wenn ein Sprite mit Bildschirm- 
darstellungen (Zeichen und so wei- 
ter) zusammenstößt, wird in Register 
53279 das zu ihm gehörende Bit ge- 
setzt. Stößt also Sprite Nummer 1 mit 
zum Beispiel einem A zusammen, 
dann liest man aus dem Register 
53279: 00000010 = dezimal 2. Apro- 
pos lesen: Die Register 53278 und 


53279 sind so gestaltet, daß sie nach 
dem Herauslesen (PEEKen) ge- 
löscht sind! Deswegen empfiehlt es 
sich, wenn man diese Inhalte da- 
nach noch braucht, sie in Variablen 
abzulegen. Auch bei dieser Sorte 
Zusammenstößen zählen nur dieje- 
nigen, bei denen undurchsichtige 
Sprite-Teile kollidieren. Wenn übri- 
gens Bildschirminhalte horizontal 
aus dem sichtbaren Bereich »her- 
ausgescrollt« worden sind (zum 
»Scrollen« kommen wir in der näch- 
sten Folge), und dabei ein Zusam- 
menstoß mit einem Sprite geschieht, 
wird ebenfalls ein Bit in 53279 ge- 
setzt. 

Manfred Thoma hat das anliegen- 
de Programm »Sprity« geschrieben, 
mit dem Sie einige Sprite-Eigen- 
schaften und die dazugehörigen Re- 
gisterveränderungen beobachtet 
werden können. 

ObwohleszudenMOBsnocheini- 
ges zu sagen gäbe (wie kommen sie 
auf den Bildschirm, schnelles Steu- 
ern und so weiter), soll das Thema 
hiermit abgeschlossen sein. Ich 
denke, daß wir in dieser Folge die 
kleinen Kobolde schon weitgehend 
entzaubern konnten mit Hilfe unse- 
rer Pentagramme. Zu den Sprites 
gibt es mehr Literatur als zu vielen 
anderen C 64’Themen. Hier eine 
kleine Auswahl: 

— Zwei Artikel wurden schon ge- 
nannt (von H. Grigat und H. Kunz) 
— Herbert Kunz hat auch schon et- 
was über schnelles Bewegen von 
MOBs geschrieben im 64'er, Ausga- 
be 4/83 auf Seite 70 f. 
— Einen Überblick vor allem über 
die Anwendung von Sprites in Spie- 
len geben Schneider und Ebert in 
den Bänden 1 und 3 des Commodo- 
re 64-Buches. Erschienen 1984 in 
Haar bei München im Markt & Tech- 
nik Verlag. Diese beiden Bände 
sind auch von den sehr gut über- 
schaubaren Programmbeispielen 
her zu empfehlen. 

(Heimo Ponnath/aa) 


Anerrahe R/Anmıet 10R4 


G 64/VG 20 












thoden kennengelemt und 
verwendet, um das Drücken 

einer Taste im Programm abzufra- 

gen: 

1. Tastencode in Speicherzellen 

203/653 

10 A=PEEK(203) 

20 B=PEEK(653) 

30 IFA = ZEICHENCODE AND 
B=STEUERCODE THEN 
AKTION 


W: haben insgesamt vier Me- 


2. ASCII-Code im Tastaturpuffer 

100 POKE 198,0 

110 A=PEEK(63]) 

120 IF A=ASCII-CODE THEN AK- 
TION 

3. Abfrage des ASCII-Codes mit 

GET/INPUT 

200 GET A$ 

210 IF A$<>CHRSASCI-CODE) 
THEN AKTION 1 

220 AKTION 2 

4. Abfrage des Gänsefuß-Modus 

mit GET/INPUT 

300 GET A$ 

310 IF A$ »ZEICHEN« THEN Ak- 
TION 1 

320 AKTION 2 

Diese vier Methoden haben alle 
eins gemeinsam: 

Sie können immer nur eine einzel- 
ne Taste abfragen. Zwei oder gar 
mehrere Tasten gleichzeitig oder 
kurz hintereinander gedrückt erge- 
ben keine sinnvollen Resultate. 

Jetzt möchte ich Sie an meinealler- 
erste Darstellung im Aprilheft des 
»64'er«, Seite 115, erinnern, nämlich 
wie die Tasten elektrisch angeord- 
netsind und wie das Betriebssystem 
sie abfragt. Ich möchte das hier 
noch einmal darstellen, erstens weil 
es eine gute Überleitung bildet zu 
meiner Methode der Vielfach- 
Tastenabfrage, zweitens weil meine 
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[Teil und Schluß 


In dem letzten Teil dieses Kurses finden Sie eine Zu- 
sammenfassung der Methoden, wie man 
in Basic Tasten abfragen kann. 








damalige Darstellung nicht vollstän- 
dig war. 

In Bild 1 ist noch einmal die VC 
20-Tastenanordnung dargestellt, in 
Bild 2 diejenige des C 64. Trotz des 
Unterschiedes der elektrischen An- 
ordnung ist bei beiden Computern 
die Abfragemethode identisch, nur 
die dafür benötigten Register haben 
unterschiedliche Adressen. 

Zur Erinnerung: 

Das Betriebssystem wählt der Rei- 
henach die senkrechten Spalten da- 
durchan, daßesdie Zahl, dieamFu- 
Be jeder Spalte steht, in das Spalten- 
Register 37152 (beziehungsweise 
56320) schreibt. Diese Zahl ergibt in 
dualer Darstellung eine 0 an dieser 
Stelle. 

Für jede Taste, die in der ange- 
wählten Spalte gedrückt ist, wird ei- 
ne 0 in das andere Recister 37153 
(56321) geschrieben. Diese Dualzahl 
ergibt einen Dezimalwert, welcher 
aus dem Recister herausPEEKbar 
ist. 
Das, was das Betriebssystem 
macht, machen wir ihm nach, zuerst 
für den VC 20: 

10 POKE 37152,247 

20 PRINT PEEK (37152);PEEK(37153) 
30 GOTO 10 

und für den © 64: 

10 POKE 56320,127 

20 PRINT PEEK(56320);PEEK(56321) 
30 GOTO 10 

In Zeile 1Oistnochein weiterer Un- 
terschied zwischen den beiden 
Computern zu sehen. Beim VC 20 
habe ich die Spaltenzahl 247 ge- 
wählt, weil in dieser Spalte die 
STOPTaste liegt. Diese Spalte ist 
nämlich, wie wir in Teil 1 ja schon 
festgestellt haben, die einzige Spal- 
te, die wir mit Basic abfragen kön- 
nen. BeiPOKEnderanderen sieben 


ten-, Zeichen- und Steuercodes 





Spaltenzahlen in Zeile 10 wirft uns 
die 60mal in der Sekunde stattfin- 
dende Überprüfung derSTOP-Taste 
aus dem Programm. 

Beim C 64 ist das die Spalte 127, 
wie es uns ein Blick auf das Bild 2 
zeigt. 

Ich freue mich übrigens, daß ein 
aufmerksamer Leser aus Wien die- 
sen Unterschied sofort bemerkt und 
mich darauf aufmerksam gemacht 
hat. Aber ich hatte damals nur einen 
VC 20 zur Verfügung, und mangels 
eigener Erprobung ist es mir nicht 
aufgefallen. Das hat sich übrigens 
jetzt geändert. 

Diese Tastenabfrage hat den gro- 
ßen Vorteil, daß mehrere Tasten 
gleichzeitig drück- und abfragbar 
sind. Jede gedrückte Taste erzeugt 
eine Dim»Reihen-Register«. Mitdem 
kleinen Programm oben können Sie 
es ausprobieren. Drücken Sie alle 
Tasten der Spalte 247 (127), die 
STOP-Taste bitte als letzte! Der rech- 
te Zahlenstreifen auf dem Bild- 
schirm zeigt die 0. 

Lassen Sie die STOP-Taste (die 
l-Taste) los, und es erscheint die |, 
bei Loslassen der linken SHIFT- 
Taste (der —-Taste) zusätzlich erhal- 
ten wir die 3. Das ist die Dezimalzahl 
für 00000011, die beiden Einser ent- 
stehen durch die losgelassenen Ta- 
sten. 

Jede mögliche Tastenkombination 
in einer Spalte hat ihre spezielle und 
abfragbare (!) Codezahl im Register 
37153 (56321), insgesamt 256 Kombi- 
nationen. Ist das nichts? 

Diese Methode der Mehrfach- 
Tastenabfrage haben wir bereits in 
der Ausgabe 4/84 im ersten Teil 
meines Aufsatzes erfolgreich einge- 
setzt. 

Heute möchte ich diese Methode 
aufalleachtSpalten, also aufalle Ta- 
sten erweitern. Dazu müssen wir das 
oben erwähnte Hindernis, nämlich 
den Rausschmiß durch das Be- 
triebssytem, überwinden. Dazu gibt 
es zwei Methoden. Methode 1 will 
ich nur kurz erwähnen — sie ist ei- 
nen eigenen Aufsatz wert. 

Man kann durch Beeinflussung 
der Speicherzellen 788 und 789 die 
Pause (Interrupt) zur Tastenabfrage 
des Betriebssytems künstlich ver- 
längern und sie zur eigenen Abfra- 
ge benutzen. 
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Die zweite Methode ist einfacher. 
Wir schreiben das Programm oben 
(Zeilen 10 und 20) in Maschinenspra- 
che. Das läuft dann so schnell ab, 
daß es innerhalb zweier Unterbre- 
chungen ausgeführt und somit vom 
Betriebssystem nicht gestört wird. 

Da ich nicht annehme, daß alle Le- 
ser dieses Kurses in Maschinenco- 
de programmieren können, zeige 
ich es Ihnen einfach als Kochrezept. 
Es besteht aus einer Reihe von Zah- 
len, die über READ ... DATA in vor- 
bestimmte Speicherplätze gePOKEt 
und von dort dann mit SYS gestartet 
werden. 

Für den VC 20 gil 
100 DATA 169, bi. 141,32,145,173, 
33,145,141,255,29,96 


Für den © 68 gilt: 
100 DATA 169, E54] ‚141,0,220,173,1, 
220,141,255,29,96 


Ich habe einige Zahlen gekenn- 
zeichnet: 

— Die zweite Zahl der DATA-Reihe in 
den Kästchen ist die Zahl der Spalte, 
die angewählt wird (ich habe 254 ge- 
wählt). 

— Die 32 und 145 (0,220 beim C 64) 
ergeben die Registeradresse 37152 
(56320), die DATA-Werte 33 und 145 
(1,220) die Registeradresse 37153 
(56321), die Werte 255,29 ergeben ei- 
ne Speicherzelle 7679, auf die ich 
noch zurückkomme. 

Die Registeradressen sind, wie 
immer bei Commodores 8-Bit-Com- 
putern, mit zwei Zahlen, das heißt 
mit zwei Bytes dargestellt. 


REGEL: 
LSB+256*MSB = Adresse 
32 + 256* 145 = 37152 

1 + 256* 220 = 56321 
LSB = niederwertiges Byte 
MSB = höherwertiges Byte 


Diese 12 DATA-Zahlen, ich nenne 


sie X, werden eingelesen mit: 
110 FORK=1TO 12 
120 READX 
140 NEXTK 

Damit diese Zahlen vom Basicpro- 
gramm nicht überschrieben oder 
gelöscht werden (was dasselbe ist), 
POKEn wir sie an das Ende des VC 
20-Speichers ohne Erweiterung, 
nämlich ab Speicherzelle 7661. Für 
den C 64 geht es mit denselben 
Adressen natürlich allemal. 
130 POKE 7660+K,X 

Um ganz sicher zu gehen, daß mit 
dem Maschinenprogramm nichts 
passiert, schützen wir es, indem wir 
dem Computer vorgaukeln, daß 
sein für Basic zur Verfügung stehen- 
der Speicher bei Adresse 7659 auf- 
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hört. Diese Speichergrenze steht in 
den Speicherzellen 51/52 und 
55/56, und sie kann natürlich durch 
POKEn anderer Zahlen willkürlich 
verändert werden. 

Die entsprechenden Werte für die 
Grenze 7659 sind 235 und 29. Ma- 
chen wir die Probe: 

PRINT 235 +256+29 (RETURN) 
ergibt 7659. 


20 POKE 51,235 
30 POKE 52,29 
40 POKE 55,235 
50 POKE 56,29 

Falls Sie diese Speicherzellen und 
ihre Anwendung nicht kennen, bitte 
ich um Zuschrift, da ich es hier aus 
Platzgründen nicht näher erläutern 
kann. 

So, nun ist das Maschinenpro- 
gramm gespeichert und gesichert. 
Wir starten das Programm mit SYS- 
Aufruf der 1. Adresse und PEEKen 
danach in das Register 37153 (5632]), 
genau wie vorher. 

150 SYS 7661 

160 PRINT PEEK(37153): REM VC 20 
160 PRINT PEEK(56321): REM C 64 
170 GOTO 150. 

Nach RUN erzeugt der Rück- 
sprung den schon obligatorischen 
Zahlenstreifen mit 255 für »keine Ta- 


ste gedrückt«. Wenn wir die Taste 3 
(RETURN beim C 64) drücken, dann 
muß entsprechend Bild 1 und 2 
(Spalte 254) die Zahl 253 erscheinen. 
Das tutsie auch, aber immer wieder 
unterbrochen durch 255. Das kommt 
daher, daß das Auslesen des Recgi- 
sters 37153 (56321) in Basic doch 
schon zu langsam ist. Wir müssen 





es VC 20 


Bild 1. Tastenanordnung d 


daher die Funktion der Zeile 160 
ebenfalls in das Maschinenpro- 
gramm einbauen, was ich in weiser 
Voraussicht in Zeile 100schon vorbe- 
reitet habe. Der Trick ist nämlich da- 
bei, daß der Inhalt des Registers 
vom Maschinenprogramm in eine 
vor dem bösen Basic geschützte 
Speicheradresse gebracht wird. Da 
wir jaeinen gesicherten Bereich be- 
reits haben, habe ich darauf die Zel- 
le 7679 ausgewählt. 

Bitte ändern Sie die Zeile 160 ab: 
160 PRINT PEEK(7679) 

Jetzt haben wir's geschafft. 

Natürlich können wir mit diesem 
Programm alle acht Spalten abfra- 
gen. Wir brauchen bloß in Zeile 100 
die Zahl, die hier im Kästchen steht, 
abändern, zum Beispiel in 253, und 
schon reagiert das Programm aufal- 
le Tasten dieser Spalte. 

Ich habe mir den Luxus erlaubt 
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und unser Programm von oben er- 
weitert,indemich der Reihe nachal- 
le acht Spalten aufrufe (siehe Listing 
l). Dazu habe ich in Zeile 100 die 
Spaltennummer auf 0 gesetzt, was 
eigentlich unnötig aber einleuch- 
tend ist, POKE aber dann jeweils die 
Spaltenzahl (in den Zeilen 200, 300, 
400 etc.) auf diesen Platz, der die 
Adresse 7662 hat. 

Das Programm ist immer noch 
schnell genug, um innerhalb der zur 
Verfügung stehenden Zeit von 1/60 
Sekunde alle Abfragen durchzufüh- 
ren. 

Ein Appell an alle 64er: Wenn Sie 
die Semikolons in den Zeilen 220, 





SPALTEN-REGISTER s320 7 


mE ge 


Bild 2, Tastenanordnung des C 64 


320, 420 etc. (außer 920!!\) richtig pla- 
ziert haben, erscheinen die Zahlen 
für alle acht Spalten brav nebenein- 
ander. 

Beim VC 20 haben wir ein kleines 
Problem, hervorgerufen durch die 
kleinere Zeilenlänge, die uns eine 
Darstellung aller acht Zahlen ne- 
beneinander nicht erlaubt. 

Ich schlage deshalb vor, nach vier 
Zahlen ab Zeile 520 die Reihenfolge 
zu unterbrechen (Semikolon weglas- 
sen) und an den Änfang (Zeile 200) 
zurückzuspringen, es sei denn, die 
f-1-Taste wurde gedrückt (Zeile 560). 
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Dann nämlich kommen die nächsten 
vier Zahlen dran — sogar in einer 
anderen Farbe. Eine weitere Tasten- 
abfrage in Zeile 960, diesmal der 
....laste — ja schauen Sie halt in der 
ASCII-Tabelle nach, welche Taste 
dieses Zeichen hat (Methode des 
waagrechten Sprunges zwei Spalten 
weiter) — entscheidet zwischen 
Wiederholung der zweiten Gruppe 
oder Rücksprung auf die ersten vier 
Zahlen. Wie gesagt, die Verwen- 
dung der Semikolons an der richti- 
gen Stelle ist wichtig. 

Jetzt ist die Gelegenheit da zum 
Experimentieren: 
— mehrere Tasten aus verschiede- 
nen Spalten 


— mehrere Tasten aus derselben 
Spalte 

Ja, und irgendwann bleibt Ihnen 
das Programm mit BREAKIN .... ste- 
hen!! 

Leider ist das schon wieder der 
STOPTasten-Effekt, den wir nicht 
ganz loswerden. Wenn nämlich Ta- 
sten der waagrechten Reihe 254 (be- 
ziehungsweise 127) gedrückt wer- 
den, interpretiert dies das Betriebs- 
system als STOPTaste, die ja in die- 
ser Reihe liegt, und stoppt das Pro- 
gramm. 





Uns soll das aber nicht be- 
drücken, denn wir können in unse- 
rem Programm den Gebrauch die- 
ser Tastenreihe einfach vermeiden. 
Für unsere Zwecke reichen alle an- 
dern Tasten allemal aus. Man muß 
diese Einschränkung nur berück- 
sichtigen. 

Zusammenfassend sei gesagt, 
daß Sie in einem Programm jetzt alle 
Kombinationen aller Tasten abfra- 
gen können mit 
IF PEEK(7679)= ..... THEN ...... 

Sie müssen sich lediglich die ent- 
stehenden Dualzahlen im Register 
37153 (86321) in Dezimalzahlen um- 
rechnen oder sie vorher ausprobie- 
ren. 

Ich will auch am Schluß meiner 
Darstellung der Gewohnheit treu 
bleiben und das Kochrezept in ei- 
nem kleinen Gericht anwenden (Li- 
sting 2). 


Ein Spiel für vier 
Personen 


Ummirund Ihnen die Sacheleich- 
ter zu machen, verwende ich mög- 
lichst viele Teile aus den vorherigen 
Programmen. 

Spielidee: 

— Jeder Spieler wählt eine von vier 

bestimmten Tasten. 

— Auf dem Bildschirm wird ein be- 

liebiger Buchstabe »angesagt« 

— Der Bildschirm füllt sich langsam 

mit Zufalls-Buchstaben 

— Sobald der »angesagte« Buchsta- 

be erscheint, sollen die Spieler ihre 

Taste drücken 

— Wer zuerst drückt, hat gewonnen! 
Programmbeschreibung: 

Zeile 10 bis 50 

— schützt das Maschinenprogramm 

(wie vorher) 

Zeile 100 bis 140 

— liest das Kochrezept »Maschinen- 

programm« ein 

Zeile 215 und Zeile 530 

— stellen einen besonderen Trick 

dar. Mannenntdaseine »Flagge set- 

zen« (set a flag). Die Abfrage der Ta- 

sten soll nämlich nur dann funktio- 

nieren, wenn ein Buchstabe (später 

VB genannt) mit dem anfangs »ange- 

sagten« Buchstaben BU überein- 

stimmt. Wenn VB=BU dann wird in 

eine »sichere« Speicherzelle (ich ha- 

be 830 gewählt) eine Zahl (hier 250) 

hineingePOKEt. Diese Zahl in 830 

wird bei der Abfrage ebenfalls ab- 

gefragt. Bei Beginn des Spieles muß 

diese Flagge natürlich eingeholt, 

= heißt auf 0 gesetzt werden (Zeile 

). 
Zeile 220 bis 270 
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— gibt Anweisungen und teilt den 
Spielern ihre Taste zu (von mir will- 
kürlich ausgewählt) 

Zeile 280/300 

— löscht den Bildschirm und färbt al- 


hintereinander durch. Diese Zahl 
bestimmt auch die Geschwindig- 
keit, mitder die Buchstaben aufdem 
Bildschirm erscheinen. Ihre Verklei- 
nerungerhöht die Schwierigkeit des 


2: 810 bis 840 beziehungsweise 
0 

— meldet den Sieger (Aussprung 
aus der Äbfrage) 





les schwarz Spieles 

Zeile 310/320 Zeile 620 bis 740 Zusammenfassung und 
— gibt Anweisungen — fragt die in Zeile 220 bis 250 defi- Schluß 

Zeile 330 nierten Tasten und die Flagge in 830 


— wählt per Zufallsgenerator (wie 
vorher) einen Buchstaben BU aus, 
zwischen 1 und 10 (A bis J in 
Bildschirm-Code!) 

Zeile 340/350 

— druckt diesen Buchstaben BU ge- 
nau an das Ende des Textes der Zei- 
le 320 (Bildschirmspeicher-Platz 
und Farbspeicher-Platz ausrech- 
nen!) 

Zeile 260/270 und 370/380 

— schalten den Text weiter mit ir- 
gendeiner Taste 


ab. Beim VC 20 ist jede der gewähl- 
ten Tasten in einer anderen Spalte, 
daher sind vier POKEs in 7662 not- 
wendig. Beim C 64 liegen je zwei Ta- 
sten in einer Spalte, daher nur zwei 
POKESs in 7662. Da aber gleichzeiti- 
ge Tastendrücke vorkommen kön- 
nen (in einer Spalte natürlich), fra- 
gen Zeile 660 und 710 diesen spe- 
ziellen Fall ab. 


Diese »gleichzeitige« Mehrfach- 
Tastenabfrage ist genau genommen 
nicht ganz gleichzeitig. 

Nichts in einem einzelnen Compu- 
ter ist gleichzeitig! Alles erfolgt in ei- 
ner Sequenz. 

In dem Spielprogramm für vier 
Personen erfolgt die Tastenabfrage 
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G 64/VG 20 





IF VB=Bu THEN POKE 


Listing 1. In diesem Programm können alle Ta- 


sten abgefragt und angezeigt werden 
>» 


832,259 


VC 20: so kanTeRnacoyssos, 


S89+C,y8 
Sso POKE 38480+C, | 


C 64: S52 POkE 


> Rena POKE 
ee Bene ABFRAGE *t* 
ses a zur TASTEN « 
Mangggugyy 
510 FOR 224 79 ee 
528 Poke 7 
S52, 
630 Sys zuce 253 
848 IF PE 


549 C=INTeRAD 


(122591342 
1824+C ,vg 


S52965+C, | 


POK 7662 253 ano PEEK<839 
> 
538 Sys 796, "2SO THEN 928 
788 IF Peer 
(767 
TIO POKE zog 05, e7 AND PEEK (830, 2289 
728 Sys 7861 THEN 830 
738 IF pgeX 
(7679) = 
748 NEXT 2 127 AND PEEKc< 
838 )=259 TH 
EN 348 
S28 Poke 7 
862 
s39 sYs 7861 ‚127? 
648 IF PE 
EK (7673 
858 IF pg ?=253 ano 
EK<7 PEEK< 
G 64: SERlE EEK 7a nn, nes A PEEK coa0. 2250 THEN g19 
; = FOKE 7662,23 FRLIANG PEEK ago )2a0e TEN e28 
IF PEEK< THEN 859 
788 IF PEEK c7enn 254 AND PEEK (939) 
710 IF PEEKepa79,.002 AND PEEKcagE,..ee HEN 838 
728 NE S)=259 A )=259 THEN 848 


Ne REM... 
aa REMss+ ERGEBNIS *x* 
Ss REMa regen g,, 


sıo .. 
PRINT SPIELER 1 


828 PRINT». IST sı . 

830 PRINT RESP IELER 2 ıst Sie: 

848 PrınT. DERBPIELER 3 17 SIEGER* 
NT IINSPIELER 4 ER 


C 64: 


858 PRINT- 

MEENOCH £ı 
878 GET As: ıF Alargarn ? Um) 
888 IF AZ="N- THEN EG EN zoa 


838 G0TO 870 
READY. 


natürlich auch hintereinander, wo- 
durch die zuerst abgefragten Tasten 
ihren Besitzern einen kleinen Vorteil 
gewähren, aber halt nur einen ganz 
winzigen! 

Dieser Effekt wird durch das 
l5fache Durchlaufen der Abfrage 
und durch die Schnelligkeit des Ma- 
schinenprogramms gemildert. Das 
ganze Programm in Maschinenspra- 
che geschrieben würde natürlich 
durch die Geschwindigkeit auch die 
letzte Ungerechtigkeit ausmerzen. 

So, liebe VC 20er und C 64er. Das 
war's. 
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’GOTO 860 
:G0TO 869 
'60T08688 

:C0T0 868 


A 
Ein Spiel für 4 Personen 


Ich hoffe, Sie kennen jetzt die ver- 
schiedenen Codes und fühlen sich 
wohl bei der Tasten-Äbfrage. Me- 
thoden und Kochrezepte haben Sie 
dazu ja jetzt genug. 

Ich habe mich bemüht, Sie zum 
Experimentieren anzuregen, denn 
gerade diese spielhafte Auswir- 
kung der Neugier unterscheidet 
den Amateur vom Profi und fördert 
das Verständnis der Zusammen- 
hänge. 


4 REM Kuna nur 
5 REM VIELFACHTASTEN 

& REM ABFRAGE 

7 REM manner 
10 PRINT CHR$(147) 

20 POKE 51,235 

350 POKE 52,29 

40 POKE 55,235 

50 POKE 56,29 

100 DATA 1689,254,141,0 

101 DATA 220,175,1,220 

102 DATA 141,255,29,96 

105 REM ------———-VC20 

1058 REM 100 DATA169,254,141,3 
107 REM 101 DATA145,173,353,145 
108 REM 102 DATA141,255,29,96 
109 REM ——— --VC20-ENDE 

110 FOR K=1 TO 12 

120 READ X 

150 POKE 7550+K,X 

140 NEXT K 

200 POKE 76682,127 

210 SYS 7661 

220 PRINT " B"PEEK (7679); 

300 FPOKE 76652,191 

310 SYS 7861 

320 PRINT PEEK (7879); 

400 POKE 7652,223 

410 SYS 7661 

420 PRINT PEEK (7879); 

500 POKE 7652,239 

S10 SYS 7861 

3511: REM -————-VC20: 

512 REM 520 PRINT PEEK (7679) 
513 REM SS50 GET As 

514 REM 560 IF At<>"z"THENZ20O 
S1ı5 REM VC20-ENDE-------—— 
520 PRINT FEEK (7679; 

&00 POKE 7662,247 

&10 SYS 7661 

&20 PRINT PEEK (7679); 

700 POKE 7652,251 

710 SYS 7661 

720 PRINT PEEK (7879); 

200 POKE 76682,2553 

810 SYS 7541 

820 PRINT FEEK (7679); 

900 POKE 7662,254 

910 SYS 7861 

920 PRINT PEEK (7679) 

940 

950 REM GET As 

9780 REM IF As<>"N" THEN 500 
970 REM ------VC20-ENDE 

1000 GOTO 200 


READY. 


Ich habe mir am Anfang das Ziel 
gesetzt, allgemein verständlich und 
ohne Fachchinesisch zu schreiben. 

Ob mir das gelungen ist, können 
nur Sie mirsagen. Fallsetwas unklar 
geblieben ist und Sie Fragen haben, 
schicken Sie sie mir, ich werde Ih- 
nen antworten. Und wenn es soge- 
nannte »gute Fragen« sind, schreibe 
ich vielleicht darüber den nächsten 


Kurs. 
(Dr. Helmuth Hauck/ak) 


Literatur: 

1 VIC REVEALED von N. Hampshire, Computabits Ltd., 1981 

2. M. Bassman, S Lederman in COMPUTEISFIRST BOOK OF 

VIC COMPUTE!, Books Publ, 1982 

Re RS = SPIELE-BUCH | von A. Dripke, Computer Life Ver- 
g 

ENTE von Angerhausen und Englisch, Data Becker, 

$. 64-INTERN von Angerhausen et al, Data Becker, 1983 

6. DAS VC-20-Buch von M. Hegenbarth, M. Schäfer, Markt & 

Technik Verlags, 1983 

7. VIC-20-PROGRAMMERS REFERENCE GUIDE von A. Fin- 

kel et al, Howard W. Sams & Co, 1982 
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ie Kunst der Fütterung von 

Milchkühen besteht nicht darin, 

ihnen etwas Freßbares in den 
Futtertrog zu werfen und dann zu 
warten, daß am Euter möglichst viel 
Milch herauskommt, meint Willi 
Lackenbauer. »Das Futter muß aus- 
gewogen sein, sonst geben die Kühe 
nicht genug Milch«. Der Fachmann 
gibt seit zehn Jahren Landwirten 
Tips und berät sie bei der Viehhal- 
tung. 

Seit sechs Monaten setzt Willi 
Lackenbauer einen C 64 ein, um die 
Milchleistung in den Kuhställen zu 
optimieren. Für jede Kuh erstellt er 
einen maßgeschneiderten Plan. 
»Gras allein macht Kühe nicht glück- 
lich — und nur glückliche Kühe ge- 
ben viel Milch, das weiß sogar der 
Städter« meint Willi Lackenbauer. 
Er erläutert die Grundzüge der Füt- 
terung: »Es kommt vor allem aufeine 
ausgewogene Nahrung an. Das ist 
beim Menschen ja nicht anders. 
Wer sich überwiegend von Fett und 
Kohlenhydraten ernährt, wird in sei- ! 
ner Leistungsfähigkeit nachlassen, ) 
weil ihm Eiweiß fehlt. In ähnlicher 777° 
Weise wird auch das Futter für Kühe \ 
nach sogenannten Nährstoffeinhei- 
ten bewertet. Diese sind — nach Fut- 
tersorten geordnet — in Tabellen 
festgehalten. Bei der Rationsbe- 
rechnung muß man davon ausge- 
hen, daß die Kuh einen bestimmten 
Nährstoffanteil für ihren Grundbe- 
darf benötigt. Erst was darüber hin- 
aus gefüttert wird, wandelt sich in 
Leistung — sprich Milch — um. Da- 
bei steht ziemlich genau fest, wieviel 
Nährstoffe für einen Liter Milch not- 
wendig sind.« 3 

Der Milchvieh-Experte gibt hierzu 
ein Beispiel: »Grünfutter ist ein aus- 
gesprochener Eiweißlieferant, je- 
doch arm an Energie. Ohne Energie 
wird das pflanzliche Eiweiß nicht in 
tierisches Milcheiweiß umgewan- 
deltoder Milchfett gebildet. Umdas N 
im Grundfutter enthaltene Eiweiß 
für die Milchleistung zu nutzen, muß 7 » + 


energiereiches Kraftfutter zugefüt- G 2 , 
tert werden.« Den Imegeei 
[.,, © 
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WIETSCHAFTLICHE MILCH“ IEHFUVUETTERUNG 


LACKENBRUFER WILLI 
REBGUTETR.28 
sa LkUpDA 





SRUNDFUTTERRATION JE KUH UND TAG: 


ROTKLEE 1,SCHN. KG 
WIESE 1,SCHN.C IN BL.?> KG 
MAISSILAGE 32415 KG 
HAFERSTROH KG 
WIESENHEU 1.SCHN.{ 1.BL.? KG 


DIESE RrRArTION ENTHRELT: 


TROCKENSUBST 12729.08 
ENERGIE 73.98 
ROHPROTEIN 1512.00 
ROHFASER 3213.29 
CALCIUM 196.40 
PHOSPHOR 202.50 


RATIONSBERECHHLUNG FUER MILCHKUEHE 


15.08 
15.08 
12.98 
1.08 
2.00 


GRAMM 
MINEL 
Srrabei 
SRammı 
GRAMM 
GRAMM 


MILTZTHLEISTUNG AUS GRUNDFUTTER: 


ENERSIE 11.26 
RCHFRITEIN 13.31 
SALCITUM 25.12 
PHOSPHOR 2.70 


CA:P-VERH. 3.43 


KG MILCH 
KG MILCH 
KG MILCH 


“1 


KG MILCH 


AUSGLEICHS-U.LEISTUNGSSFUTTER: 


WINTERGERSTE KG 
MILCHLE 1STUNGSF . 16% 1112 KG 


DIE GESAMTRATION ENTHRARELT=E 


TROCKENSUBST 15249.08 
ENERGIE 181.64 
RONPRITEIN 2192.08 
ROHFASER 3579.08 
SALCIUM 127.69 
PHOSPHOR s2.,698 


MILCHERZEUGUNGSWERT DER GESMAMTRATI ON: 


ENERGIE 29.17 
FNHOROTEIN 19.55 
CALCIUM 51.75 
PHOSFHOR 14.47 
CA:P-VERH. e,se 


2.00 


e. 


GRAN 
MINEL 
RAM: 
SRAMM 
GRAMM 
GRAMM 


KG 
KG 
KG 
KG 


‚r 


DIE RATION ENTHAELT 22.03 3 RGHFASER IN DER TR.SUBST 


Dieser Ausdruck zeigt, welche Werte bei einer wirtschaftlichen Rationsberechnung wichtig sind. 
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Mit der Kuhhaltung auf einem 
klassischen Bauernhof hat die mo- 
derne Milchviehhaltung nichts 
mehr zu tun. Seit Anfang der 60er 
Jahre hat sich beim Neubau von Stäl- 
len der sogenannte Boxenlaufstall 
durchgesetzt. Vierzig, achtzig und 
mehr Kühe in einem Stall. Jede Kuh 
kann frei herumlaufen. Will sie sich 
hinlegen, geht sie in ihre eigene Lie- 
gebox. Die Rangordnung in der 
Herde bestimmt, welcher Kuh wel- 
che Box gehört. Außerdemgibtesin 
einem Stallnoch zwei ganz besonde- 
re Stände: den Melkstand und den 
Futterstand. Im Melkstand steht der 
Melker vertieft und hat die Euter in 
Griffhöhe vor sich. Ob mit der Melk- 
maschine oder — im Ausnahmefall 
— von Hand, die Kuh ist bequemer 
zu melken. Außerdem ist es recht 
praktisch, nicht er geht zur Kuh wie 
früher, sondern die Kuh kommt, um 
sich melken zu lassen. Damit sie ru- 
hig steht, wird sie währenddessen 
mit Futter abgelenkt. 


Heimlich »naschen« 
ist unmöglich 


Der Futterstand ist ganztägig »ge- 
öffnet«. Immer wenn eine Kuh hung- 
rigist, gehtsie fressen. Aber wie will 
man beieiner so großen Herde kon- 
trollieren, wieviel jede frißt? »Da hat 
die Elektronikindustrie schon längst 
eine Lösung gefunden. Jede Kuh 
trägt einen elektronischen Code am 
Halsband, einensogenannten Trans- 
ponder«, erklärt Willi Lackenbau- 
erschmunzelnd. Für ihn istes selbst- 
verständlich — doch der Laie wun- 
dert sich: Elektronik im Kuhstall. 
»Beim Eintreten in den Futterstand 
wird die Kuh identifiziert und be- 
kommt eine Portion von 300 Gramm. 
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So machen’s andere 


Wegen der Verdauung ist es günsti- 
ger, das Kraftfutter in möglichst vie- 
le Portionen aufzuteilen. Hat eine 
Kuh ihre Tagesration aufgebraucht, 
bekommt sie auch bei mehrfachem 
Besuch des Futterstandes nichts 
mehr. Was jede Kuh tatsächlich ge- 
fressen hat, kann sich der Landwirt 
jeden Abend auf einem Ausdruck 
anschauen. Die Soll-Menge für jede 
Kuh richtet sich nach ihrer Milchlei- 
stung und wird in wöchentlichem 
Turnus angepaßt.« 





Zwei Minuten 
statt zwanzig 





Der Landwirt braucht sich nicht zu 
sorgen, solange seine Kühe soviel 
fressen wie sie sollen und die erwar- 
tete Menge Milch geben. Doch bei 
»Problemkühen« wird Willi Lacken- 
bauer häufig um Rat gefragt. Er hilft 
herauszufinden, was bei Kühen 
nicht stimmt, die ihr Kraftfutter nicht 
aufgebraucht haben. »Ich brauche 
Angaben, was und wieviel die Kuh 
täglich frißt. Daraufhin berechne 
ich, von welchem Stoff sie zuviel 
oder zuwenig genommen hat. Eine 
Berechnung der Futterration dauer- 
te im Normalfall etwa zwanzig Minu- 
ten. Das war mir irgendwann zu 
langweilig, denn ich brauche die Er- 
gebnisse möglichst rasch für das ei- 
gentliche Beratungsgespräch.« Wil- 
li Lackenbauer griff auf die Elektro- 
nik zurück: Im Juli letzten Jahres 
kaufte er sich einen C 64 mit Kasset- 
tenrecorder. Für die Grundausstat- 
tung reichte ihm zunächst ein Fern- 
seher zur Datenausgabe. Die erste 
Zeit war nicht besonders rosig: Pro- 
bieren und Üben standen auf dem 
Programm — denn mit der bekann- 
ten Versuchs-und-Irrtums-Strategie 
kam er besser mitseinem Computer 
zurecht als durch den »Ratgeber« 
Handbuch. Im Januar erweiterte der 
inzwischen versierte Hobby-Pro- 
grammierer seine Erstausstattung 
mit einem Drucker, Damit ging das 


IRQ (HR a 


C 64 


Für eine-Aufnahme darf der Computer einmal im-Futtertrog, stehen. 
„Ansonsten bevorzugen Mona, Lisa und die anderen leichter verdauliche Kost, 
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GC 64 


$o machen’s andere 





Überarbeiten der Listings wesent- 
lich schneller als am Bildschirm. 
Kurze Zeit später war auch das erste 
Programm, die »Rationsberechnung 
für Milchkühe«, fertig. 

Seither ist der C 64 ein unentbehr- 
licher Assistent für Willi Lackenbau- 
er: »Umständliches Heraussuchen 
von Tabellenwerten kenne ich nicht 
mehr. Das Multiplizieren der Daten 
mitder Futtermenge und das Addie- 
ren von Spalten erledigt der Com- 
puter in Windeseile. Mit der Daten- 
eingabe dauert eine Rations-Be- 
rechnung jetzt nur noch knapp zwei 
Minuten. Das ist ein Zehntel der Zeit, 
die ich früher brauchte.« 

Aus den Ergebnissen kann Willi 
Lackenbauer wichtige Schlüsse zie- 
hen: 
das Verhältnis der Mineralstoffe im 
Futter sind Hinweise auf Fruchtbar- 
keitsstörungen. Und eine unfrucht- 
bare Kuh gibt auch keine Milch. So 
merkwürdig sich das anhört, diese 


Störungen lassen sich unter Umstän- 


den durch billigeres Energiefutter 
ausgleichen. Medikamente oder 
teures Kraftfutter sind oftmals gar 
nicht nötig«. 

Neben seiner Berater-Tätigkeit 
kümmert sich Willi Lackenbauer 
auch um den Nachwuchs. Er ist Leh- 
rer an einer landwirtschaftlichen 
Fachschule. Sein Programm setzt er 


natürlich auch im Unterricht ein. Bei | 


Klassenarbeiten zum Thema Futter- 
rationen müssen die Schüler zeigen, 
daß sie Futtermengen für Milchvieh 
selbst zusammenstellen und be- 
rechnen können. Heute kann der 
Lehrer jedem seiner Schüler indivi- 
duelle »Problemkühe« auf dem Pa- 
pier vorsetzen. Die Korrektur der 
Arbeiten ist mit dem C 64 ein Kin- 
derspiel: Binnen zwei Minuten weiß 
er, ob die jeweilige Berechnung 
richtig ist. Vorher wäre esunmöglich 
gewesen, beijedem Schülerandere 
Aufgaben zu überprüfen. 

»So wie ich als Berater und Lehrer, 
kann jeder Milchviehhalter eine 
Menge Zeit sparen. Der Computer 
ist ohne Zweifel eine lohnenswerte 
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»Ein Eiweißüberschuß oder |! 


Anschaffung. Die Futterrationen 
müssen nämlich nicht nur bei Pro- 
blemkühen berechnet werden, son- 
dern bei jedem Wechsel des 
Grundfutters. Das hängt von der Jah- 
reszeit ab. Einmal ist es frisches 
Gras, dann Heu oder Futter ausdem 
Silo. Wer eine optimale Fütterung 
betreiben will, muß enorm viel Zeit 
für Rechnerei opfern. Beinur fünfzig 
Kühen im Stall sind das schon 500 
Stunden im Jahr. Mit dem Computer 
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den C 64 geschrieben. Es benötigt 
etwa 15 KByte Speicherkapazität. 
Auf PEEKS und POKES wurde ver- 


Grundausstattung für 
weniger als 1000 Mark 
zichtet, um eine Übertragung auf 


den kleineren Bruder des C 64, den 
VC 20 zu erleichtern. Als Speicher- 








hat er — bei dreimaligem Wechsel 
des Grundfutters im Jahr eine Men- 
ge Zeit gespart.« Willi Lackenbauer 
ist überzeugt, daß jeder Landwirt 
nach kurzer Einarbeitung mit dem 
Programm umgehen kann. Er hat 
auch schon die ersten Belege dafür. 
Zwei Betriebe setzen sein Pro- 
gramm seit etwa einem halben Jahr 
ein und haben seither die Fütterung 
fest im Griff. Futtervergeudung ge- 
hört dort der Vergangenheit an. 
Das Programm »Rationsberech- 
nung für Milchkühe« ist in Basic für 





| £ —— Durch die AR flleßt.n Dar dann genägend Mitch, v wenn des Foo stm N 


medium wurde’— aus Kostengrün- 

den — ein Kassettenrecorder ge- 

wählt. Wer auf Ausdrucke keinen 

Wert legt, bleibt bei den Hardware- 

kosten unter 1000 Mark. Das Pro- | 
grammlisting kann bei der Redak- 

tion angefordert werden. 

Die Bedienung ist wirklich kinder- 
leicht. Nach dem Erscheinen des Ti- 
tels werden zunächst Name undl| 
Adresse abgefragt. Diese Eingabe! / 
ist kein Muß — sie kann auch über- ' 
gangen werden. Dann erscheine 
drei mal fünfzehn Grundfuttermitte 





So machen’s andere 





auf dem Bildschirm in folgender 
Reihenfolge: Grünfutter, Silagen 
(Futter aus dem Silo), Heu und Stroh. 
Hier muß die Menge des ausge- 
wählten Futtermittels in Kilogramm 
eingegeben werden. Fehleingaben 
können korrigiert werden. Zum Äb- 
schluß erscheint die eingegebene 
Tagesration für jede Kuh. Mit »N« 
kann man an den Anfang zurückge- 
hen. Sind alle Eingaben bestätigt, 
erscheinen nach kurzer Rechen- 
dauer die Inhaltsstoffe und der 
Milcherzeugungswert der Ration. 
Nun kann mit Kraftfutter ausgegli- 
chen oder aufgebaut werden. Die 
Menge wird wiederum in Kilo- 
gramm eingegeben. Als endgülti- 
ges Ergebnis erscheint nun die Ge- 
samtration. 


Hemmschwellen sind 
schnell überwunden 





Rationalisierung und vernünftiges 
Wirtschaften ist einer der wichtig- 
sten Grundsätze, die Willi Lacken- 
bauer in Theorie und Praxis vermit- 
telnmuß und will. Undsogabersich 
nicht mit einem einzigen Programm 
zufrieden. Mittlerweile kann er mit 
seinem C 64 auch die Fütterung von 
Schweinen, egal ob zur Zucht oder 
zur Mast im Stall, optimieren. Auch 
bei der Berechnung von Deckungs- 
kosten und Gewinn eines landwirt- 
schaftlichen Betriebes assistiert der 
Computer mit einem entsprechen- 
den Programm. 

Willi Lackenbauer glaubt, daß 
Computer in der Landwirtschaft in 
Kürze einen festen Platz haben wer- 
den: »In wenigen Jahren wird der 
Transponder in vielen Boxenlauf- 
ställen zum Standard gehören. Jun- 
ge Landwirte bekommen bereits in 
ihrer Ausbildung den ersten Kontakt 
zu Computern. Hemmschwellen 
werden dadurch schnell abgebaut. 
Fütterungsprogramme, die auf ei- 
nem preiswerten Heimcomputer 
wie dem C 64 laufen, werden sich 
mit Sicherheit durchsetzen. Für den 
Berater iistesauch besser, seine Zeit 
effektiver als für schematische Be- 
rechnungen zu nutzen.« Der compu- 
terbegeisterte Berater und Lehrer 
plädiert für Programme, die einfach 
und nachvollziehbar landwirtschaft- 
lichen Betrieben Routinearbeiten 
abnehmen. »Die eingesparte Zeit 
kann viel sinnvoller zur Beobach- 
tung und Betreuung der Tiere ge- 
nutzt werden, denn das kann kein 
Computer dem Landwirt jemals ab- 
nehmen.« (Willi Lackenbauer/kg) 
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Dieses Mal ist es mir ge- 
lungen, mich mit dem 
Drucker zu verbünden! So 
konnte ich Ihnen auchin den 
Ausgaben $und 7 das Leben 
(Eintippen) schwermachen. 





















Listing Quicktext 6/84, Seite 60 

Da der Epsondrucker kei- 
nen Pfeil links und Pfeil nach 
oben versteht, muß das Zei- 
chen »_«durch Pfeil links er- 
setzt werden. 


Listing Kurvendiskussion 7/84, Seite 
116 

In diesem Listing muß das 
Zeichen * durch Pfeil nach 
oben ersetzt werden. In der 
Zeile 316 muß das zweite 
PRINT um #4 ergänzt wer- 
den. Die Zeile 266 fehlt nicht. 


Listing Hardcopy 1520 7/84, Seite 
108 


Auchhier muß das Zeichen 
* durch Pfeil nach oben (Po- 
tenz) ersetzt werden. 


Listing Softwarekatalog 7/84, Seite 


72 
Listing Q-Bernd 7/84, Seite 142 

In diesen Listings muß der 
reverse Querstrich durch das 
reverse Pfund-Zeichen (Far- 
be Rot) ersetzt werden. 















Testbericht »Daten gut im Griff« Aus- 
gabe 5/84, Seite 52 

Datamat: Entgegen frühe- 
ren Ängaben wird die neue 
Datamatversion nicht für zir- 
ka 25 Mark umgetauscht. Der 
Umtauschpreis beträgt jetzt 
50 Mark. 

Multidata: Zwei Tage nach 
dem das 64'er-Magazin mit 





Fehler- 
teufelchen 


diesem Testbericht erschie- 
nen war, mußte ich feststel- 
len, daß meine Angaben 
nicht ganz stimmten. Multida- 
ta ist doch nicht so absturzsi- 
cher wie ich geschrieben ha- 
be. Man kann bei bestimmten 
Abfragen das Programm 
durch falsche Eingaben zum 
Absturz bringen. 

Weiterhin sollte man es ver- 
meiden, sich einen anderen 
Monitor als den von Commo- 
dore anzuschaffen, denn 
durch die etwas merkwürdi- 
ge Farbauswahl ist die Schrift 
sonst kaum noch zu lesen. 


Listing »Terminalprogramm« 7/84, 


Seite 24 
Leider sind bei diesem 
Programm die beiden 


»Wandler-Programme« nicht 
mit abgedruckt worden. 
Hier nun die Ergänzung. 
Programm ”WANDLER’’: 
60000 PRINT'(rev.Herz/(rev. 
Q)": SYS16964:PRINT'RUN 
60020" 

60010 PRINT" (rev.S)'":END 
60020 PRINT"(rev.Herz/(rev. 
Q 2x)":SYS16970: 
PRINT''RUN60020" 

60030 PRINT" (rev.S)" 
Programm ”WANDLER 2’: 
60000 PRINT" (rev.Herz/rev. 
Q 2x)":SYS16964: 
PRINT'RUN60020" 

60010 PRINT" (rev.Herz)": 
POKEB831,13: 

POKEB6832,13 

60015 POKEI98,2:END 

60020 PRINT'(rev.Herzifrev. 
Q 2x)":SYS16964:PRINT 
"RUN 60020 " 

60025 POKEI198,2:END 
60030 PRINT" (rev.Herz)" 
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Software 


Fortsetzung von Seite 54 


wenn ein entsprechendes 
Ladeprogramm oder das 
Pascal selbst (G-Pascal) vor- 
handen ist. Betrachtet man 
die reine Compilierzeit, so 
schneidet das G-Pascal bei 
weitem am besten ab. 


KMMM-Pascal 
schnell und mit 
gutem Editor 


Bezüglich der Ablaufge- 
schwindigkeit ist die Sache 
klar: Das KMMM-Pascalund 
das neue Pascal 64 V3.0 sind 
klar die schnellsten (über 
das Oxford Pascal ist hierzu 
noch nichts bekannt). Ich be- 
nutze das KMMM-Pascal, 
denn für den engagierten 
Pascal-Anwender gibt es au- 
ßerdem immer noch unbe- 
quemen Pascal 64 V3.0 auf 
dem Commdore 64 bis heute 
noch nichts besseres, ob- 
wohl wahrscheinlich das Ox- 
ford Pascal in näherer Zu- 
kunft eine Leaderstellung 
erreichen wird, außer man 
willsich die CP/M-Karte kau- 
fen. Hat man einmal das Pro- 
blem mit dem Diskettenfor- 
mat gelöst, dann ist aller- 
dings die Frage nach einem 
geeigneten Pascal akade- 
misch. Das KMMM-Pascal 
kostet in der Schweiz zirka 
280 SFr., das Oxford Pascal 
zirka 190 SFr., was im Ver- 
gleich zu den anderen Ver- 
sionen, bis auf das neue Pas- 
cal 64 V3.0, dessen Preis 
auch 99 Mark sein wird, et- 
was hoch erscheinen mag. 
Falls diese Preise dem Ein- 
steiger zu hoch sind, dann 
kann ich ihm höchstens noch 
das G-Pascal empfehlen, 
weil es dem Anfänger wohl 
eher auf leichte Editierbar- 
keit ankommt, als auf ein 
möglichst komplettes Pascal 
(Pascal 64 V3.0), das ihm die 
übrigen Versionen sowieso 
auch nicht bieten können. 
Ein Pascalsystem sollte eben 
nicht nur aus einem Compi- 
ler (Data Becker Pascals) be- 
stehen, sondern auch einen 
guten Editor (KMMM- 
Pascal, G-Pascal, Oxford- 
Pascal) besitzen, womit man 
frustrationslos und einfach 
Sourcefiles erstellen kann. 
Pascal ist eben (leider!!) eine 
Compilersprache. 

(Martin Baur) 
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Eine herausragende 
Eigenschaft des Commo- 


schnellste Kopier- 
programm für den G 64 





dore 64 sind seine Mu- Das hat es noch nicht gegeben: 
sikfähigkeiten. Es gibt Durch Quickcopy wird eine voll ge- 
mittlerweile eine Viel- füllte Diskette inklusive Formatieren 
zahl von Musikprogram- in 2.5 Minuten (2 Laufwerke) oder 3.5 
men und Keyboards, die Minuten (l Laufwerk) kopiert. Bei 
den Synthesizer im .n nicht ganz gefüllter Diskette geht es 
: C 64 ausnützen. : III entsprechend schneller. 
Wir stellen die wichtig- TE E 
.. a 
ihre Leistungen un 
Schwächen und einige Zwei neue Kurse 
Anwendungen vor. 


Endlich ist es soweit ! In der näch- 
sten Ausgabe starten wir unseren 
großen Assembler-Kursfür C 64 und 
VC 20. Steigen Sie einin die Welt der 
Maschinensprache-Programmie- 
rung — auch wenn Sie bisher aus- 
schließlich in Basic programmiert 
haben: Dieser Kurs ist gerade für 
den Anfänger konzipiert worden. 
Außerdem beginnen wir mit dem 
Abdruck der mehrteiligen Serie 
»Der gläserne VC 20«. Endlich wird 
der VC 20 auch für den Einsteiger 
durchschaubar gemacht. Ob Be- 
triebssystem, Basic oder Grafik — 
dieser Kurs macht den VC 20 wirk- 
lich durchsichtig. 


Ma 
AR 


Zum Mon er 





Einem Einen Ak 
n Mieter men Machen > stikkoppler zu 

























Anwendung des Monats 


Passend zu unserem Musik- 
schwerpunkt ein Programm das Ih- 
ren Commodore 64 zur elektroni- 
schen Orgel werden läßt. 


anleitung für ein 
Zwischenschaltgerät, das automa- 
tisches Abheben und einen Wählautomaten 
beinhaltet. 





Listing des Monats 


»Spring-Vogel« ist ein Spielegene- 
rator, mit dem sich beliebig viele 
Spielszenen selbst erstellen lassen. 








Listings 
— Diskverwalter für C 64 

— Ein deutscher Zeichensatz für 
den VC 20 

— Spriteaid und Screen Change 
für den C 64 

— Ein Schiebespiel für den VC 20 


itungS- — List-Stop 
u sort und koset im — RS232.Test 
progra plich _ omat nu nPr — und wieder viele Tips & Tricks 
wurde RP ne joht Text teurere für VC 20 und C 64 
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